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VORWORT 


Mit » VC-20 TIPS S( TRICKS « liegt ein neues DATA BECKER BUCH 
vor Ihnen. Es soll Ihnen helfen, die fantastischen Möglichkeiten 
von Commodore's Millionending näher zu erschließen. Wie schon bei 
unseren anderen Büchern, lag unser SchwergeMicht deshalb nicht 
bei bunten Bildern und schriftstellerischer Meisterleistungen. 
Wir haben uns stattdessen auf handfeste Informationen 
spezialisiert, die Sie sofort nutzen können. Vor allem gehören 
dazu zahlreiche, ausführlich dokumentierte BeispielProgramme. Die 
Autoren dieses Buches sind alle begeisterte Computerfans und - 
Experten, die hier ihre Erfahrungen Miedergeben. Michael 
Angerhausen ist Mitglied des DATA BECKER Softwareteams. Sein 
Schwerpunkt sind kommerzielle Programme und Datenbanksysteme. 
Axel Riedner arbeitet im Heimcomputer Verkauf bei DATA BECKER. Er 
kennt aus seiner täglichen Arbeit die Fragen von VC-20 Anwendern 
und hat versucht, möglich viele davon in diesem Buch zu 
beantworten. Wolfgang Schellenberger gehört auch zum DATA BECKER 
Softwareteam. Er beschäftigt sich hauptsächlich mit Sound und 
Graphik. Unterstützt wurden die drei Autoren von unserem 
Entwicklungsschef Klaus Oerits und von Lothar Englisch. Nicht 
unerwähnt bleiben sollten auch die vielen Helfer, ohne die die 
Erstellung eines solchen Buches kaum noch denkbar erscheint: 
unsere Computer. VC-20 TIPS & TRICKS wurde komplett mit 
Textverarbeitung erstellt und auf einem EPSON Drucker 
ausgedruckt. 

Viel Spaß bei der Lektüre dieses Buches. 
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KaDitel 2 Der Speicher des VC-20 und seine Erweiterung 


Menn Sie einmal den Anzeigenteil der Fachzeitschriften 
durchgeblättert haben, wird ihnen sicher aufgefallen sein, 
daß gerade für den VC-20 Speichererweiterungen gigantischer 
Ausmaße angeboten werden, d.h. ^4K und darüber. 

In diesem Kapitel wallen wir Ihnen zeigen, in welchem Rahmen 
derartige Projekte realisierbar sind. Wir wallen Sie in die 
Lage versetzen, die diversen Angebote richtig zu beurteilen. 
Wir beginnen zweckmäßigerweise mit 


2.1 Der Spei eheraufbau des VC-20 


Der VC-20 arbeitet mit einem Prozessor des Typs ^502. Zu 
dessen Eigenschaften gehört, daß er einen Adressraum von 64K 
hat, d.h. aufgrund seiner 16 Adressleitungen kann er nur 
diesen Bereich durchgehend adressieren, und nicht mehr. 
Diesen wichtigen Punkt sollten Sie sich merken. 

Beim Design eines Rechners mit einem vorgegebenen Prozessor 
muß man sich natürlich Gedanken machen, wie dieser zur 
Verfügung stehende Adressraum sinnvoll aufgeteilt wird. Es 
sind hier nämlich nicht nur Betriebssystem, Basicinterpreter 
und Ram unterzubringen, sondern auch, aufgrund verschiedener 
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Eigenarten der Prozessorfamilie 65xx, auch der Ein- 
Ausgabebereich, also der Teil, der für die Kommunikation mit 
der Außenwelt (Tastatur, lEC-Bus, Userport usw.) vorgesehen 
i st. 

Im Falle des VC-20 heißt das konkret, daß von dem zunächst 
genügend groß erscheinenden 64K folgendes abgezogen werden 
muß: 

* BK Betriebssystem 

* BK Basicinterpreter 

* 4K Ein- Ausgabe 

* 4K Zeichengenerator 

Es bleibt also noch ein Bereich von 40K übrig, der mit Ram 
bestückt werden könnte. 

Zur Darstellung eines Bildes auf dem Schirm wird ein sog. 
Bi1dwiederholspei eher benötigt, an anderer Stelle auch 
Videoram genannt, der eine Größe von 1/2K hat- 

Darüberhinaus benötigt das Betriebssystem zum korrekten 
Arbeiten noch einen Speicher von IK, in dem die sog- 
Zeropage, der Stack (Stapelspeicher zur Schachtelung von 
Unterprogrammen) und weitere Abi aufparameter untergebracht 
sind. 

Außerdem ist noch ein Bereich von BK reserviert, in dem das 
Betriebssystem etwa vorhandene Erweiterungen oder 
Spielmodule erwartet. 

Das Videoram, welches sich aufgrund der Hardware des 
Videocontrollers nur in den unteren SK befinden darf, 
begrenzt den für den Anwender zur Verfügung stehenden 
Speicher nach unten. Nach oben wird der Bereich vom 
Zeichengenerator abgeschlossen, sodaß letztlich für Ihre 
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Programme noch ca. 28K zur Ver-fügung stehen. 


Dieser Bereich kann auf verschiedene Meise genutzt werden. 

In der Grundausstattung enthalten ist ein Ram von 5K. Nach 
Abzug von Videoram und des vom Betriebssvtem benötigten 
Speichers bleiben ca. 3 1/2K für den Anwender übrig. Hieraus 
ergibt sich, daß nur Speichererweiterungen von bis zu 24K 
für reine Basicanwendungen sinnvoll und, was sehr wichtig 
ist, vom Betriebssystem problemlos zu handhaben sind. Auf 
diesen Umstand gehen wir im Abschnitt 2.5 noch einmal im 
Besonderen ein. 

Auf den folgenden drei Seiten finden Sie nun die 
Spei eherauftei1ungen des VC-20 bei unterschiedlichen 
Speicherausbauten. 

Sollten Sie sich bereits einmal gewundert haben, daß 
Programme, die in Videoram und Farbram hineinpoken, wohl auf 
der Grundversion gelaufen sind, jedoch nach einer 
Erweiterung um 8K ihren Dienst versagen, finden Sie hier die 
Lösung für diesen Effekt. Sie sollten diesbezüglich einmal 
die Lage von Videoram und Farbram auf der dritten Abbildung 
mit der auf den ersten beiden Bildern vergleichen. 

An dieser Stelle sei Ihnen verraten, wie Sie Ihre Programme 
veranlassen können, auf allen Konfigurationen zu laufen: 
Beabsichtigen Sie, den Video— oder Farbram mittels PGKE zu 
handhaben, so ermitteln Sie bitte deren Basisadressen 
folgendermaßen 

Videor am: BS=4*(PEEK(36866> AND128)+64*(PEEK(36869)AND120) 
Farbram : FA=4*(PEEK(36866)AND128)+37888 
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Alle -folgenden POKEs, die Färb- oder Videoram zum Ziele 
haben, sollten sich auf die derart festgestellten Adressen 
beziehen, etwa in der Form 

POKE BS+rel. Position,Bi 1dschirmcode 
POKE FA+rel- Position,Farbcode 

Die Darstellung der Adressen in den Diagrammen auf den 
folgenden Seiten erfolgt in der sedezimalen Schreibweise. 
Menn Sie damit nicht vertraut sind, brauchen Sie sich nur zu 
merken, daß ein Sprung um den Wert 1 in der ersten Stelle 
einem Sprung um 4K im Adressraum entspricht. 
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2.2 Grundausbau 


•EOOO 


BETRIEBSSYSTEM 


•COOO 

•ROOO 

•9000 

•8000 


BRSIC 


SPIELMODULE ETC. 


EIN- RUSGRBE 


2E1CHENSENERRT0R 


Diese Speicherau-ftei 1 ung ist in 
der Grundausstattung des VC-20 
gegeben. 

Hierbei -fällt au-f, daß der 
Basicbereich nicht so-fort 
oberhalb von Zeropage und Stack 
beginnt, sondern ein Stück 
höher. 

Das liegt daran, daß der 
Videoram Bestandteil des auch 
■für Basic verwendeten Speichers 
ist, und man diesen an einer 
glatten BK-Grenze ausgerichtet 
hat, um spätere externe 
Erweiterungen nicht durch 
au-f wendige Adressdecodi erungen 
unnötig zu erschweren. 

Die mit FREI bezeichnete Lücke 
von 3K unterhalb des Basicram 
dient zur Au-f nähme einer 
3K-Erweiterung. 


•2000 

• lEOO 


• 1000 


•0400 

•0000 


FREI 

VIDEO-RRH 


BRSIC-RRH 


FREI _ 

ZEROPRSE.STRCK 
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2.3 3K-Erweiterung und Super— 


•EOOO 


•COOO 


tROOO 


•9000 


•8000 


•2000 
• lEOO 


•0400 

•0000 


BETRIEBSSTSTEH 


BflSIC 


SPIELHODULE ETC. 


EIN- RUSGRBE 


ZEICHENGENERRTOR 


FREI 

VIDEO-RRH 


BRSIC-RRM 

ZEROPRGEtSTRCK 


erweiterung 


Diese Konfiguration gleicht im 
Wesentlichen der vorigen. 

Der Basicram beginnt hier 

gleich oberhalb des vom 

Betriebssystem beanspruchten 
Ram. 

Die auf der vorigen Seite noch 
vorhandene Lücke ist hier durch 
eine 3K-Erweiterung aufgefüllt, 
d.h. daß Sie hier mit einem 

Anwenderspeicher von ca. 6 1/2K 

rechnen können. 

Die Supererweiterung enthält 
ebenfalls eine 3K-Erweiterung, 
die auf die gleiche Art wirkt, 
wie oben beschrieben, jedoch 
ist hier noch eine recht 
nützliche Programmierhilfe zur 
Handhabung der hochauflösenden 
Grafik des VC-20 enthalten. 
Diese Software belegt 4K in dem 
Bereich, der in der Zeichnung 
mit SPIELMGDULE bezeichnet ist- 
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2.4 8K- bis 24K-Erweiterung 


•EOOO 


•COOO 


•ROOO 


•9000 


•6000 


•6000 


•4000 


•2000 


• 1200 
• 1000 


•0400 

•0000 


BETRIEBSSYSTEM 


BflSIC 


SPIELMODULE ETC. 


EIN- RUSGRBE 


2EICHENGENERRT0R 


♦ WEITERE 8K 


♦ WEITERE 0K 


4 8K 


BRSIC-RRM 

V3DE0-RRM 


FREI __ 

ZER0PRGE.8TRCK 


Die Speichereinteilung, die Sie 
hier sehen, tritt ein, wenn 
Erweiterungen ab BK verwendet 
werden. 

Auffällig hierbei ist, daß der 
Videoram ein Stück tiefer 
gerutscht ist, um so mit dem 
bereits eingebauten Ram eine 
lückenlose Verbindung zur 
Erweiterung zu haben, denn das 
Betriebssystem verlangt für 
Basic einen durchgehenden 
Spei eher. 

Hieraus folgt auch, daß eine 
evtl. ebenfalls eingesteckte 
3K-Erweiterung keine Wirkung 
mehr zeigt. 

Diese kann nun noch zur Ablage 
von Maschinenprogrammen oder 
einzelner Bytes mittels POKE 
benutzt werden. 

Das Farbram hat sich ebenfalls 
verschoben, was Sie aber auf 
der nächsten Seite deutlicher 
sehen. 
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2.5 Die Ein— Ausgabebereiche 


tscoo 


•9600 


•9600 


•9400 


•9120 

•9110 


•9000 


11/0 - 3 


11/0 •• 2 


FflRBRflH B. ERW. <8W 


FflRBRflH B. ERW. >3ld 


TR8TRTUR _ 

U3ERP..JflT8T«.lEC 


VIDEOCONTROLLER 


Hier -finden Sie nun eine 
detai11iertere Darstellung des 
au-f den vorigen Seiten so 
salopp mit EIN- AUSGABE 
bezeichneten Bereichs- 
Beachten Sie bitte als 
Besonderheit die beiden 

möglichen Positionen des 

Farbram. 

Sie sind direkt abhängig von 
der Lage des Videoram und damit 
indirekt auch von der Größe des 
Speicherausbaus. 

Bei den Bereichen 1/02 und 1/03 
handelt es sich um IK—Bereiche, 
die sowohl zum Anschluß von 
Inter-faces als auch zur 
Speichererweiterung (allerdings 
nur -für Maschinensprache) 
benutzt werden können- 
Da uns bisher keinerlei 
Erweiterungen bekannt sind, die 
diese Bereiche nutzen, haben 
wir hier unser lEC—Bus—Modul 
angesiedelt, welches au-f diese 
Meise anderen Modulen nicht den 
Raum nimmt. 
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2-6 32K und mehr 


Aus dem im Abschnitt 2-1 Gesagten geht hervor, daß -für eine 
Nutzung als Basicspeieher bei unmodifiziertem Betriebssystem 
nur max- 28K in Frage kommen- 

In welchem Adressraum wird jedoch eine Speichererweiterung, 
die über 24K hinausgeht, untergebracht? 

Nun, bei einer Erweiterung um zusätzliche 8K bietet sich der 
Bereich an, der eigentlich -für Spielmodule und dergleichen 
vorgesehen ist- Man kann diesen Adressraum, es handelt sich 
um den Bereich von $A000(40960) bis ^BFFF(49051), ohne 
weiteres mit Ram bestücken- Eines sei hier nocheinmal ganz 
deutlich gesagt: Erwarten Sie nicht, daß sich nun nach dem 
Einschalten das Betriebssystem mit mehr BYTES FREE als zuvor 
meldet- Das Betriebssystem benötigt nämlich als 
Basicspeicher einen zusammenhängenden Bereich, was hier 
nicht mehr der Fall ist, da der Spielebereich durch 
Zeichengenerator und Ein— Ausgabe vom darunter 1iegenden 
Speicher getrennt ist- 

Trotzdem kann eine Speichererweiterung in diesem Block 
sinnvoll sein, nämlich dann, wenn Ihre Programme nicht nur 
aus reinem Basic, sondern auch aus Routinen, die in 
Maschinensprache geschrieben sind, besteht- 

Solche Maschinenprogramme können Sie in eben diesem Bereich 
ablegen- Sie vermeiden dadurch, daß der evtl- zu knappe 
Basicram durch Ihre Routinen weiter reduziert wird- 
Denkbar ist auch eine Verwendung dieses Bereiches als 
'Geheimspeicher'- Sie können dort ungehindert Werte 
hineinpoken, beispielsweise Resultate aus Berechnungen, die 
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Sie in später nachzuladenden Programmen weiterverwenden 
möchten- Dieser Speicher wird nämlich beim Laden neuer 
Programme, selbst wenn Sie nicht die Overlaytechnik 
anwenden, nicht gelöscht. 

Eines sollten Sie jedoch dabei beachten: 

Lassen Sie eine solche Technik der Programmierung nicht zur 
Gewohnheit werden, d.h. daß sie die beschriebenen Verfahren 
selbst dann anwenden, wenn keine Notwendigkeit dazu besteht. 
Es könnte ohne weiteres Vorkommen, daß Sie sich zum Beispiel 
eine Programmierhilfe oder dergleichen zulegen, die in eben 
diesem Bereich arbeitet, wozu auch die Supererweiterung 
zählt. UJollen Sie dann Ihre Programme mit einer solchen 
Erweiterung betreiben, so laufen sie nicht mehr, da ja an 
der Stelle, wo Ihr Programm Ram erwartet, sich keiner mehr 
befindet. 

Was hat es nun mit Speichererweiterungen auf sich, die 64K 
und mehr beinhalten? 

Wie aus dem in den vorangegangenen Abschnitten Gesagten 
hervorgeht, ist es zunächst schon rein physikalisch nicht 
möglich, mehr als 32K hinzuzufügen, da ja der Rest des 
Adressraumes von Betriebssystem, Basicinterpreter usw. 
beansprucht wird, abgesehen davon, daß das Betriebssystem 
nicht in der Lage ist, einen größeren Speicher zu handhaben. 
Da nun aber diese Grenzen vorgegeben sind, hilft man sich 
bei großen Erweiterungen folgendermaßen: 

Man geht nicht davon aus, daß z.B. 64K Ram im Zusammenhang 
benutzt werden. Deshalb stückelt man die 64K oder mehr in 
kleinere Portionen, z.B. BK. 
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Diese mundgerechten Happen kann man nun durch geeignete 
Vorrichtungen alternativ dem Rechner anbieten- Dieser 
Vorgang wird auch 'Multiplexen' genannt. 

Der Rechner 'sieht' natürlich nach wie vor nur seine 
beispielsweise 32K Ram, allerdings kann der Anwender 
bestimmen, welcher Ausschnitt aus der großen Erweiterung dem 
Rechner angeboten werden soll. 

Dieses Multi plexen kann je nach Aus-führung mehr oder weniger 
komfortabel vor sich gehen. Eine mögliche Nutzanwendung sehr 
großer Spei ehererweiterungen könnte beispielsweise darin 
bestehen, daß in den einzelnen Spei eherSegmenten mehrere 
Basieprogramme vorhanden sind, die man durch entsprechendes 
Umschalten dem Rechner zugänglich macht. Das würde bei 
häufigem Programmwechsel innerhalb einer Problemstellung das 
lästige Nachladen erübrigen. 

Grundsätzlich sollten Sie sich jedoch überlegen, ob Sie zu 
solchen Mitteln greifen wollen, denn Programme, die mit 
einer derartigen Ausstattung rechnen, sind nicht mehr 
transportabel, d.h. sie würden ausschließlich auf 
gleichartig konfigurierten Systemen laufen. 


2.7 Die Modulbox VC-1020 und ihre Anwendung 


Die Modulbox VC—1020 verfügt über sechs gleichwertige Slots 
(Steckplätze). Gleichwertig heißt, daß Sie ein beliebiges 
Modul in einen beliebigen Slot stecken können. 

Natürlich verleitet das reichliche Vorhandensein von Slots 
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dazu, die Modulbox mit allen Modulen, deren man habha-ft 
werden kann, zu bestücken. Daß Sie dabei mit Überlegung 
Vorgehen, wollen wir Ihnen in diesem Abschnitt nahebringen. 

Zunächst bietet sich die Modulbox an, Ihren Rechner mit 
Ram-Modulen autzustocken. Das ist auch problemlos möglich, 
wenn Sie beachten, daß die 8K-Module einen Sonderstatus 
einnehmen, und zwar dergestalt, daß sich im Inneren des 
Modulgehäuses eine von 1-4 numerierte Schalteranordnung 
betindet. 

Falls Sie mehr als ein Speichermodul besitzen, dienen diese 
Schalter dazu, den Speicherblock zu bestimmen, in welchem 
das Modul wirksam werden soll. 

Hier nun die Zuordnung der Schalter zu den Adressbereichen: 


Schalter 4=EIN 
3=EIN 
2=EIN 
1=EIN 


^2000-^3FFF 

^4000-^5FFF 

^6000-^7FFF 

^A000-$BFFF 


Von diesen Schaltern dart immer nur einer eingeschaltet 
sein, da sich sonst das Modul aut mehreren Adressbereichen 
gleichzeitig angesprochen tühlen würde. 

Zwei Beispiele sollen das Gesagte verdeutlichen. 

Sie besitzen drei 8K-Module. Im ersten sollte der Schalter 
4, im zweiten Schalter 3 und im dritten Schalter 2 in 
Stellung ON sein. Alle anderen Schalter müssen in Stellung 
□FF stehen. 

Sie haben ein 16K-Modul und ein 8K-Modul. Im 8K-Modul muß 
der Schalter 2=ÜN sein. Das 16K-Modul vertügt über keine 



Schalter. 

Sehen Sie hierzu auch die Abbildung in 2.4. 

Bei Schalter 1=0N haben Sie den Ram im Spielebereich liegen. 
Beachten Sie dazu bitte auch den Abschnitt 2.^. 

Handelt es sich bei den Modulen um andere als reine 
Speichererweiterungen, so lassen sich solche nicht ohne 
weiteres miteinander betreiben. 

Sie müssen nämlich zunächst -f eststel 1 en, -für welchen 
Adressbereich diese Module vorgesehen sind, da sich mehrere 
Module im gleichen Adressraum nicht vertragen. 

Um Ihnen die Arbeit ein wenig zu erleichtern, hier eine 
Übersicht über die Adressräume und der dafür vorgesehenen 
Module, soweit bekannt: 

$0400-$0FFF 3K-Ram oder Ram aus der Supererweiterung 
^2000-$3FFF BK-Ram oder erste Hälfte aus 16K-Ram 
$4000-$5FFF BK-Ram oder zweite Hälfte aus 16K-Ram 
$6000-^7FFF (Maschinensprache-Monitor und Programmers Aid) 
oder BK-Ram 

^9B00-^9FFF DATA BECKER lEC-Bus 

$A000-^BFFF (Superexpander und Commodore lEC-Bus) oder MAXI 
oder BK-Ram oder Spielmodul 

In der obigen Aufstellung sollten Sie 'oder' bitte als 
ex klusiv-oder verstehen, d.h. das Vorhandensein einer 
Möglichkeit schließt eine weitere für denselben Adressraum 
aus. 

Die Möglichkeiten der Zusammenstellung können hier natürlich 
nur rein hardwaremäßig betrachtet werden. über die 
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so-f twaremäßi ge Verträglichkeit bestimmter Module 

untereinander (dies trifft nicht für reine 

Speichererweiterungen zu) kann keine Aussage gemacht werden. 
Eine mögliche Bestückung der Modulbox könnte also so 
aussehen: 

16K-Ram-Modul 
Maschinensprache—Monitor 
Programmers Aid 
DATA BECKER lEC-Bus 
MAXI 

Wir hoffen, daß wir mit diesem Kapitel 2 Ihnen anschaulich 
vor Augen geführt haben, wie der Speicherraum des VC-20 
sinnvoll zu nutzen ist, und daß Sie beurteilen können, was 
geht und was unmöglich ist. 
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3) Die VC-20 Grafik 


3.1 Grundlagen 

Daß der VC-20 bereits in der Grundversion beachtliche Grafik¬ 
möglichkeiten besitzt, hat zwar jeder bereits einmal irgendwo 
gehört, doch wie man diese Grafik erzeugen kann, ist für die 
Meisten bisher ein Geheimnis geblieben. Im VC-20 Handbuch finden 
Sie diese Möglichkeiten des VC-20 gar nicht erwähnt. In diesem 
Kapitel sagen wir Ihnen, was Sie über das Videochip des VC-20 
wissen müssen, und wie sie mit diesem Wissen hochauflösende 
Grafiken erzeugen können. Sie werden imstande sein, auf der 
Grundversion des VC-20 Grafiken mit einer Auflösung von 128*128 
Punkten und mit Hilfe der normalen 8- bzw. 16K—Erweiterung Gra¬ 
fiken mit einer Auflösung von 168*176 Punkten zu erzeugen. All 
dies werden Sie anhand von Beispielen und lauffähigen Programmen, 
die Sie nur noch abtippen müssen, erlernen. 

Zuerst wenden wir uns dem Video-Chip des VC—20 zu. Dieser 
hochintegrierte Baustein mit der Nummer 6560 ist speziell für 
kleine Computer und Video Spiele entwickelt worden. Mit Hilfe 
seiner 15 Register können Sie alle Betriebsarten des VC—20 
kontrollieren. Von diesem Chip werden nicht nur die Grafik und 
die Farben kontrolliert, sondern es enthält auch die Ton¬ 
generatoren und die AD-Wandler für die Paddies. Auf der nächsten 
Seite finden Sie eine Übersicht über alle Register dieses Chips, 
dann folgt eine Erklärung der einzelnen Register. 
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CRO 

9000 

7 

I 

6 

86 

in 

in cn 

4 

84 

3 

83 

2 

82 

1 

81 

0 

80 

Bitnummer 

Bi 1 dschirman-f ang 

KRl 

9001 

S7 

86 

85 

84 

83 

82 

81 

80 

X-Koordinate 

BiIdschirmanfang 

KR2 

9002 

V9 

M6 

M5 

M4 

ri3 

M2 

Ml 

MO 

Y-Koordinate 

Anzahl der 8palten 

KR3 

9003 

RO 

N5 

N4 

N3 

N2 

N2 

NO 

D 

aut dem 8chirm 

Anzahl der Reihen 

KR4 

9004 

R8 

R7 

R6 

R5 

R4 

R3 

R2 

RI 

aut dem 8chirm 

Rasterwert 

KR5 

9005 

V13 

V12 

Vll 

VIO 

C13 

C12 

eil 

CIO 

8tart 8chirm + 

KR6 

9006 

LH7 

LH6 

LH5 

LH4 

LH3 

LH2 

LHl 

LHO 

Charactergenerator 

LichtgrittelPosition 

KR7 

9007 

LV7 

LV6 

LV5 

LV4 

LV3 

LV2 

LVl 

LVO 

horizontal 

LichtgrittelPosition 

KR8 

900G 

PX7 

PX6 

PX5 

PX4 

PX3 

PX2 

PXl 

PXO 

vertikal 

Potentiometerposition 

KR9 

9009 

PY7 

PY6 

PY5 

PY4 

PY3 

PY2 

PYl 

PYO 

horizontal 

Potentiometerposition 

KRa 

900a 

81 

F16 

F15 

F14 

F13 

F12 

Fll 

FlO 

vertikal 

Frequenz Tongenerator 

1 

Frequenz Tongenerator 

KRb 

900b 

82 

F26 

F25 

F24 

F23 

F22 

F21 

F20 

KRc 

900c 

83 

F36 

F35 

F34 

F33 

F32 

F31 

F30 

Frequenz Tongenerator 

“T 

KRd 

900d 

84 

F46 

F45 

F44 

F43 

F42 

F41 

F40 

O 

Frequenz Tongenerator 

KRe 

900e 

FA3 

FA2 

FAl 

FAO 

A3 

A2 

Al 

AO 

Rauschen 

Lautstärke 

KRf 

900-f 

FB3 

FB2 

FBI 

FBO 

R 

FC2 

FCl 

FCO 

Hi1tstarbe 

Farben 
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Beschreibung der Register : 

In Spalte 1 finden Sie die Bezeichnung des Registers, in Spalte 2 

die Speicherstelle im RAM, wo dieses Register zu -finden ist. 

Diese Zahlen sind im Hexadezimalsystem. Das erste Register 

be-findet sich also in der Speicherstelle 9000 im 

Hexadezimalsystem bzw. 36864 im Dezimalsystem. Die weiteren 

Register be-finden sich in den -folgenden Speicherstellen. 

Erklärung der einzelnen Register : 

KR O : Die Bits 0-6 bestimmen, wieviele Punkte das Bild vom 

linken Rand des Schirms ent-fernt ist. Es wird benutzt, 
um das Bild horizontal zu zentrieren. Bit 7 bestimmt 
die Zwischenzeilenabtastung. Gewöhnlich steht hier 
eine O. 

KR 1 : Dieses Register bestimmt, wieviele Punkte vom oberen 

Bildschirmrand das Bild beginnt. Es wird benutzt, um 
das Bild vertikal zu zentrieren. 

KR 2 : Die Bits 0-6 bestimmen die Anzahl der Spalten au-f dem 

Bildschirm, d.h. wieviele Buchstaben pro Reihe 
vorhanden sind. Bit 7 entspricht Bit 9 der 
An-fangsadresse der Video-Matrix und gehört zu den Bits 
4-7 des Registers 5. 

KR 3 : Die Bits 1-6 bestimmen die Anzahl der Bildschirm— 

Zeilen. Mit Bit O wird -festgelegt, ob die Buchstaben 
in einer 8*8 (D=0) oder in einer 8*16 (D=l) Matrix 

dargestellt werden. Die Darstellung der Buchstaben in 
einer 8*16 Matrix ist hauptsächlich -für hochau-f 1 ösende 
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Gra-fiken gedacht. Wir werden davon Gebrauch machen, 
wenn wir die Gra-fik mit der Auflösung von 168*176 
Punkten erstellen. Bit 7 ist Teil des Wertes in 
Register 4. 

Dieses Register enthält die Nummer der Zeile, die 
gerade von dem Rasterstrahl bearbeitet wird. 

Die Bits 0-3 sind die Bits 10-13 der Startadresse -für 
den Charactergenerator. Die Bits 4-7 bilden zusammen 
mit Bit 7 aus Register 2 die Bits 10 bis 13 der 
Startadresse des Video-RAM. 

Dieses Register enthält die horizontale Position des 
Lichtgri-f-f el. 

Dieses Register enthält die vertikale Position des 
Lichtgriffels. 

Dieses Register enthält den digitalisierten Wert des 
Potentiometers 0. 

Dieses Register enthält den digitalisierten Wert des 
Potentiometers 1. 

Die Bits 0-6 bestimmen die Frequenz des Tongenerators 
1, Bit 7 schaltet diesen Tongenerator ein (S=l). 

Die Funktion dieses Registers entpricht der des 
Registers a, nur für Tongenerator 2. 
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KR c : Die Funktion dieses Registers entspricht der des 

Registers a, nur -für Tongenerator 3- 

KR d : Die Funktion dieses Registers entspricht der des 

Registers a, nur -für den Rauschgenerator. 

KR e : Die Bits 0-3 bestimmen die Gesamt1autstärke der Ton— 

generatoren. Die Bits 4-7 bestimmen die Hil-fsfarbe, 
wenn der "Vi el-f arb "-Betri ebsmodus eingeschaltet ist. 

KR -f : Die Bits 0-2 bestimmen eine der 8 Farben -für den 

Bildschirmrahmen. Die Bits 4—7 bestimmen die 
Hintergrundfarbe des Bildschirms. Das Invertierungsbit 
R bestimmt, ob verschiedenfarbene Buchstaben auf 

einem einheitlichen Hintergrund (R=l) dargestellt 
werden, oder ob die Darstellung invertiert wird (R=0), 
d.h. alle Buchstaben haben die gleiche Farbe (bestimmt 
durch die Bits 4-7 des f-Registers) und der Hintergrund 
jedes Buchstaben vom Wert des Farb-RAM bestimmt wird. 

Wenn Sie die vorangegangenen Seiten aufmerksam durchgelesen 
haben, werden Sie festgestellt haben, daß es keinen eigentlichen 
hochauflösenden Grafikmodus gibt. Sie werden aber auch 
festgestellt haben, daß sich sowohl das Video-RAM als auch der 
Charactergenerator verschieben lassen. Das verantwortliche 
Register ist hier das Kontrol1register 5. Außerdem gibt es die 
Möglichkeit, die Zeichen in einer 8*16 Matrix darzustellen. Wir 
werden nun zuerst ein bißchen mit dem Charactergenerator spielen 
und Ihnen anschließend zeigen, wie sie so hochauflösende Grafiken 
erzeugen können. 
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3.2 Programmierbare Zeichen 


Der Charactergenerator beginnt normalerweise ab der 
Speicherstelle 32768. Mit Hilfe des Kontrol1registers 5 können 
wir nun die Startadresse in den RAM-Bereich verlegen. Die 
folgenden Tabelle gibt Ihnen Auskunft, welche Werte Sie in dieses 
Register schreiben müssen, um den Charactergenerator an eine 
bestimmte Stelle zu verschieben. 


Inhalt KR5 Speicherstelle 


240 

32768 

241 

33792 

242 

34816 

243 

35840 

244 

(36864) 

245 

(37888) 

246 

(38912) 

247 

(39936) 

248 

(0) 

249 

(1024) 

250 

(2048) 

251 

(3192) 

252 

4096 

253 

5120 

254 

6144 

255 

7168 


Inhalt der Speicherstelle 
Charactergenerator ROM 
Charactergenerator ROM 
Charactergenerator ROM 
Charactergenerator ROM 
Videochip 
Farb-RAM 
nicht wählbar 
nicht wählbar 
Null-Seite 

RAM bei Speichererweiterung 

RAM bei Speichererweiterung 

RAM bei Spei ehererweiterung 

BASIC-Start 

RAM 

RAM 

RAM 


Der normale Inhalt des KontrolIregisters 5 ist entweder 240 bei 
Großbuchstaben mit Graphik oder 242 bei Klein— und 
Großbuchstaben. Bei dieser Tabelle liegt das VideoRAM ab 
Speicherstelle 7680. 
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Nehmen Sie nun alle Speichererweiterungen aus Ihrem VC-20 und 
tippen Sie das folgende kleine Programm ein: 

5 POKE 52,20:P0KE 56,20:CLR 
10 FORI=0702047:P0KE5120+I,PEEK(32768+I):NEXTI 
20 PGKE 36869,253 

In Zeile 5 setzen wir den für BASIC verfügbaren Speicherplatz 
herunter, um den Charactergenerator vor dem überschreiben zu 
schützen. In Zeile 10 kopieren wir den Charactergenerator aus dem 
ROM in den RAM-Bereich ab Speicherstelle 5120. Mit Zeile 20 
schließlich versetzen wir den Zeiger auf den Zeichengenerator auf 
die Speicherstelle 5120. Wenn Sie nun Buchstaben eintippen, 
stellen Sie fest, daß sich nichts verändert hat- Da wir bis jetzt 
auch nur den Charactergenerator kopiert haben, ist dies auch 
korrekt. Tippen Sie nun die folgenden Zeilen ein: 

30 FGRI=0TÜ7:READA:P0KE5128+I,A:NEXT 
100 DATA 255,129,129,129,129,129,129,255 

Lassen Sie das Programm laufen. Sofort verändern sich alle "A"s 
auf dem Bildschirm zu kleinen Quadraten. Wenn Sie nun ein "A" 
eintippen, so erhalten Sie jetzt immer ein kleines Quadrat auf 
dem Bildschirm. Beachten Sie aber, daß dieses kleine Quadrat 
immer noch als "A" funktioniert- Befehle wie "LOAD" oder "SAVE" 
mögen jetzt vielleicht etwas komisch aussehen, funktionieren aber 
weiterhin. 

Wie funktioniert nun der Zeichengenerator? Alle Buchstaben und 
graphischen Zeichen des VC-20, die auch auf der Tastatur 
abgebildet sind, werden aus einer 8*8 Matrix aufgebaut. Eine 
solche Matrix sieht also folgendermaßen aus: 
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stellen Sie sich nun vor, jede Reihe entspricht einem Byte, also 
einem Speicherplatz, und jeder der 8 Punkte einem Bit dieses 
Bytes. Das linke Bit soll die größte Wertigkeit haben. Von links 
beginnend, haben die 8 Stellen die Wertigkeiten 
128,64,32,16,8,4,2,1 . Wenn nun ein Punkt gesetzt ist, so wird 
der entsprechende Wert in die Speicherstelle addiert. Dazu wieder 
ein Beispiel : 


£> 

A 

A 


A 

I 

XL 

0 


XI 

A 

j2 

0 

J2 

A 

ö 

n. 


A 

A 

0 

0 

4 

ö 


0 

A 

± 

A 

± 

0 

si 

XL 

J2 

A 


JL 

JL 

A 

0 

XL 

A 

A 


o\ 

0 

A 

0 

A 

A 

A 

'i 

± 


A 


A 

± 

_o 



_ 0 _ 

A 

0 


Diese Matrix entspricht dem Buchstaben B. Die Werte der 
Speicherstellen von oben nach unten sind 124,34,34,60,34,34, 
124,0. Tippen Sie nun die -folgende Zeile ein: 
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FÜRI=5136T05143:PRINTPEEK(I):NEXT 


Sie sehen, sie erhalten die gleichen Werte. 

Fassen wir zusammen: Alle Zeichen werden in einer 8*8—Matrix 
dargestellt. Die 8 Reihen werden im Charactergenerator 
hintereinander abgespeichert. 

Sie sehen, daß es nun -Für Sie ein leichtes ist, Ihren Zeichensatz 
zu verändern, zum Beispiel könnten Sie Ihrem VC—20 die deutschen 
Umlaute ä,ö,ü und ß beibringen. Doch wie kommen wir nun zu der 
versprochenen hochau-f 1 ösenden Gra-Fik? 

Vielleicht ahnen Sie die Antwort bereits. Ganz ein-Fach, wir 
schreiben den Bildschirm mit verschiedenen Zeichen voll und 
programmieren diese so, wie wir sie benötigen. Da wir nur 256 
verschiedene Zeichen haben, können wir leider nicht den gesamten 
Bildschirm ausnutzen. Wir können pro Reihe 16 Zeichen 
unterbringen. Bei einer Au-Flösung von 8 Punkten pro Zeichen 
ergibt sich, daß wir 8*16=128 Punkte ansteuern können. Das 
Gleiche gilt -Für die vertikale Richtung. Wir benötigen demnach 2K 
Speicherplatz -Für die Gra-Fi kseite, so daß uns bei der 
Grundversion des VC-20 noch 1,5 K -Für Programme zur Ver-Fügung 
stehen. Sie werden nun sicher sagen, dies sei nicht viel. Daß 
sich aber auch in diesem Speicherplatz bereits vernünftige 
Programme unterbringen lassen, zeigen wir Ihnen mit dem folgenden 
Programm. Es ist ein Funktionenplotter, mit dessen Hilfe Sie alle 
Funktionen zeichnen können. Tippen Sie nun das folgende Programm 
ein: 
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5 POKE52,20:POKE56,20:CLR 
10 PRINT"J" 

20 PRINT"GEBEN SIE DEN STARTPUNKT EIN INPUTS 
30 PR INT"GEBEN SIE DEN ENDPUNKT EIN INPUTE 
40 PRINT"SDLL DAS ALTE BILD GELDESCHT WERDEN <J/N) 
50 GET A:^: IFA*=" "THEN50 
70 PRINT"J" 

80 PDKE36869,253:PDKE36879,8 
84 PRINT" :FDRR=0TD15:FDRL = 0TD15 
90 PDKE7680+R*22+L,R*16+L 

100 NEXTL,R 

101 PDKE36869,253:PDKE36879,8 

102 I FA*< >"J"THEN130 

103 FDRI=5120TD7168:PDKEI,0:NEXT 

104 FDRU=0TD127:Y=64:GDSUB1000:NEXT 

105 FDRY=0TD127:U=64:GDSUB1000:NEXT 
130 U=0:FDRX=STDESTEP<E-S)/127 

135 IFX=0THEN170 
140 GDSUB2000 
150 Y=64-Y*64 
160 GDSUB1000 
170 U=U+1 
180 MEXTX 

1S0 GETA*:IFA*=""THEN190 

200 GDTD200 

210 END 

1000 AD=5120 

1010 AY=INT<Y/8)*128+<YAND7) 

1020 AD=AD+8*INT<U/8)+AY 
1030 MA=2t< 7-< UAND7 ) ) 

1040 PDKEAD^PEEK«: AD)0RMA 
1050 RETURN 
2000 Y=COS<X) 

2010 RETURN 

READY. 
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Erläuterungen zu diesem Programm: 


Zeile 5 : Der -für BASIC verfügbare Speicherplatz wird begrenzt 
Zeile 90: Der Bildschirmspeicher wird mit den Zeichen 

beschrieben. 

Zeile 101: Der Zeiger auf den Zeichengenerator und die Farbe 
werden gesetzt. 

Zeile 103: Der Charactergenerator wird gelöscht, d.h. der 

Bildschirm leert sich. 

Zeile 104: Die X-Achse wird gezeichnet. 

Zeile 105: Die Y—Achse wird gezeichnet. 

Zeile 130— Die Funktion wird gezeichnet. 

180: 

Zeile 1000 Die X und Y-Werte werden umgerechnet und die Punkte 
—1050: mit der Anweisung in Zeile 1040 gezeichnet. 

Zeile 2000: Hier steht die Funktion, die gezeichnet werden soll. 

Lassen Sie das Programm nun laufen. Wenn Sie als Anfangspunkt — 
3.14 und als Endpunkt 3.14 wählen und die Frage nach dem Löschen 
mit "J" beantworten, werden Sie eine schöne Kosinuskurve auf dem 
Bildschirm sehen. 

Wenn das Bild fertig ist, brechen Sie die Endlosschleife in Zeile 
200 durch Drücken der RUN/STÜP und RESTÜRE Taste ab. Ändern Sie 
nun Zeile 2000, schreiben Sie dort zum Beispiel die Funktion 
Y=SIN(X)/X hinein. Starten Sie nun das Programm, geben Sie als 
Grenzen -15 und 15 ein und beantworten Sie die Fragen nach dem 
Löschen mit "N". Sie sehen, daß die alte Kurve noch vorhanden 
ist. Die neue Kurve wird nun einfach dazugezeichnet. Dies können 
Sie mit immer wieder neuen Funktionen so oft wiederholen, wie Sie 
möchten. 
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3.3 Laufschrift 


Als weitere Anwendung des Charactergenerators möchten wir Ihnen 
nun noch zeigen, wie Sie riesengroße Buchstaben auf dem Bild¬ 
schirm und damit eine weithin lesbare Laufschrift erzeugen 
können. 

Das Prinzip ist ganz einfach: 

Sie speichern einen Text in eine Variable. Diesen Text gehen Sie 
Buchstabe für Buchstabe durch und holen sich den entsprechenden 
Code aus dem Charactergenerator. Für Jedes gesetzte Bit schreiben 
Sie nun je nach Vergrößerung einen oder zwei Zeichen auf dem 
Bildschirm. Dann verschieben Sie den ganzen Bildschirm nach links 
und nehmen sich den nächsten Buchstaben vor- Sind Sie am Ende 
Ihres Textes angelangt, fangen Sie wieder von vorne an- Auf diese 
Art und Meise erhalten Sie praktisch eine sich endlos wieder— 
holende Schriftrolle. 

Auf der nächsten Seite finden Sie das Listing zu einem 
Laufschriftprogramm- Es kann einen Text, der bis zu 255 Zeichen 
lang sein darf, in 4 verschiedenen Größen über den Bildschirm 
laufen lassen. Das Programm unterteilt sich in fünf Teile- Im 
ersten Teil bis Zeile 90 werden die Anfangsvariablen gesetzt, der 
Text eingelesen und der Vergrößerungsfaktor gewählt. Entsprechend 
diesem Faktor wird nun in einen der vier nachfolgenden 
Programmteile verzweigt. Ihnen wird auffallen, daß die 
Programmteile 3 und 4 fast identisch sind. Aus Gründen der 
Übersichtlichkeit haben wir darauf verzichtet, diese in einen 
Teil zusammenzufassen. 

Auf der nächsten Seite nun das Listing, danach noch Erläuterungen 
zu den wichtigsten Programmzeilen. 
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0 REM **** LAUFSCHRIFT **** 

1 P0KE56,24:P0KE52,24:CLR 

2 VA=4096:BB=22:ZZ =22:FA=37888:CG=32768 

3 FGRI=6144T07417STEP2 

4 POKEI,PEEKC CG):PÜKEI + 1,PEEK< CG):CG = CG + 1:NEXTI 

5 CG = 32768:P0KE36878,8:PRINT"a" J REM "3" ENTSPRICHT CTRL./2 (FARBE WEISS) 

6 DIM* U*( 15) 

10 PRINTCHR*<147) 

20 PRINT"GEBEN SIE IHREN TEXT EIN":INPUTA* 

30 PRINT"GEBEN SIE DEN VERGROESERUf^lSFAKTGR EIN :":INPUTV 
40 IFV<1ANDV>4THEN30 
50 PRINTCHR*< 147) 

55 X=0:Y=ZZ/2 

80 ONVGGTG100,1000,2000,3000 
100 FDRJ=lT0ZZ/2+l:PRINT:NEXT 

105 UI*=A*: IFLENC A*) >BBTHENU*=LEFT*( U»,BB) :A*=RIGHT*( A*,LEN( . ..GGTGl 10 

106 IFLENC A*)<BBTHENFGRQ=1TDBB-LENC U*) :U*=U*+" " : NEXTQ : A*=R IGHT^ A*,BB-LENC Ul«) ) + 

1 10 Z«=LEFT«( Ul«, 1 ) :UI«=RIGHT«( U«,BB-1 )+LEFT«C A«, 1 ) 

120 A«=RIGHT«*: A«,LENC A«)-l )+Z« 

130 PRINTCHR«C 145);CHR«C 145);!*» 

135 FORU=QTD100:NEXT 
140 GDTD110 

1000 FDRJ=0TD7:FDRI=0TDBB:UJ«< J)=U1«< J) + " ":NEXTI,J 
1005 PRINTCHR«( 147); :FGRI = 1TD7:PRINT:NEXT 
1010 FDRI=1TGLENCA«) 

1020 Z«=MID«<A«,I,1) 

1030 ZZ=CG+CASCCZ«)-64)*8 
1040 IFASCC Z«)=32THENZZ =6654 

1050 FGRBI=7TD0STEP- 1:FDRR =0TD7:Z =PEEKC ZZ +R):Z =ZAND2tBI 
1070 IFZ=2tBITHENU«( R)=RIGHT«C U«( R),BB-1) + GOTO 1090 
1080 U1«C R)=RIGHT«<U«<R) ,BB-1 ) + " " 

1090 NEXTR 

1300 FORJ = 0TO7:PRINTU«CJ); :NEXTJ 
1350 F0RP=1T08:PRINTCHR«< 145);:NEXTP 
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1400 NEXTBI 
1500 NEXTI 
1B00 GOTO 1010 

£000 FORJ=0TO15:FORI=0TOBB:UI*< J)=UI$< J) + ’’ NEXTI, J 
£005 PRINTCHRSC 147):PRINT:PRINT: 

£010 FORI=1TOLENC) 

£0£0 Z$=MID*<I,1) 

£030 ZZ=CG+( ASC<Z$)-B4)*8 
£040 IFASCCZ^)=3£THENZZ=8854 

£050 FORBI=7TO0STEP-1:FORR=0TO15:Z=PEEK< ZZ + INT< R/£)):Z=ZAND£TB I 

£070 IFZ=£tBITHENU]S< R)=RIGHT*< R) ,BB-1 ) + "«" :R=R + 1 :U1«< R) =R IGHT$< Ul«( R) ,BB-1 ) + "«" 
:GOTO 1090 

£080 Ui$<R)=RIGHT*<UJ$<R),BB-l) + '’ " : R = R+1: U$< R ) =R I GHT*< Ui$< R ) ,BB-1 ) + " " 

£090 NEXTR 

£300 FORJ=0TO15:PRINTUJ$< J).: :NEXTJ 

£350 F0RP=1T01B:PRINTCHR*< 145);:NEXTP 

£400 NEXTBI 

£500 NEXTI 

£B00 GOTO£010 

3000 POKE 3B8B5,19 

3010 POKE 3B879,47 

30£0 POKE 3B8B7,S9 

3030 POKE 3B8B9,£54 

3040 F0RJ=1T09:PRINT:NEXT 

3050 GOTO 105 

READY. 
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Teil 2 dieses Programms geht von Zeile 100 bis Zeile 140- In 
diesen Programmtei1e kommen Sie, wenn Sie den Vergrößerungsfaktor 
1 wählen, d-h- der Text erscheint in Originalgröße. In Zeile 100 
wird der Cursor auf die mittlere Bildschirmzeile gesetzt. Wenn 
der Text länger als die Bildschirmzeile ist, wird in Zeile 105 
der Text in zwei Teile gespalten. Die Variable W$ enthält den 
linken Teil des Textes, entsprechend der Breite des Bildschirms. 
Die Variabel enthält den restlichen Text- Ist die Länge des 
Textes kleiner als die Breite des Bildschirms, so wird die 
Variable W$ mit soviel Leerzeichen aufgefüllt, bis die Länge von 
W^ der Zeilenbreite entspricht- Der Variablen A^ wird nun ein 
Leerzeichen hinzugefügt. In Zeile 110 wird der linke Buchstabe 
der Variablen W^ der Variablen Z^ zugewiesen. Dieser Buchstabe 
wird nun aus W$ entfernt und der linke Buchstabe aus A$ 
hinzugefügt. In Zeile 120 nun wird der linke Buchstabe aus A$ 
entfernt und Z^ hinzugefügt. Dann wird W^ ausgedruckt, in Zeile 
135 eine Warteschleife abgearbeitet und danach wieder weiter 
geschoben. Sie sehen, daß die eigentliche Verschiebung nur aus 
den Zeilen 110 und 120 besteht. Sollte die Laufschrift Ihnen zu 
langsam oder zu schnell sein, so können Sie Zeile 135 
entsprechend verändern- 

Teil 3 und 4 des Programms sind wie schon erwähnt fast identisch. 
Wir wollen hier deshalb nur Teil 3 erklären. In Zeile 1000 werden 
die Variablen W$(J) mit soviel Leerzeichen gefüllt, wie der 
Bildschirm breit ist- Der PRINT-Befehl in Zeile 1005 bewirkt ein 
Löschen des Bildschirms und die Positionierung des Cursors auf 
der mittleren Zeile. Zeile 1010 startet eine Schleife, die alle 
Buchstaben des Textes in der Variablen A^ durchgeht- In Zeile 
1020 wird der laufende Buchstabe der Variablen Z$ zugewiesen und 
in Zeile 1030 die Position im Charactergenerator errechnet, wo 
die Matrix dieses Buchstabens abgespeichert ist- Die Formel dafür 
lautet Startposition des Charactergenerators (CG) plus 8 mal 
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der Differenz aus ASCII-Code und der Zahl 64- In ZZ steht nun 
also die Startposition der Matrix für den Buchstaben. Eine 
Ausnahme bildet lediglich das Leerzeichen. Es wird deshalb in 
Zeile 1040 gesondert behandelt. Beachten Sie , daß sie nur 
Großbuchstaben verwenden dürfen- Diese Matrix wird nun spalten¬ 
weise abgearbeitet. Zuerst wird das höchste Bit der ersten Reihe 
der Variablen Z zugewiesen. Ist dieses Bit gesetzt, so wird in 
Zeile 1070 ein Graphikzeichen der Variablen W$(J) zugefügt und 
gleichzeitig das linke Zeichen entfernt. Ist dieses Bit nicht 
gesetzt, so wird ein Leerzeichen hinzugefügt. Das Gleiche 
geschieht nun mit dem höchsten Bit der zweiten Reihe u.s.w. 
Danach wird das zweithöchste Bit bei allen 8 Reihen bearbeitet, 
dann das dritthöchste bis zum niedrigsten- Anschließend wird der 
nächste Buchstabe bearbeitet und wenn der ganze Text auf dem 
Bildschirm erschienen ist, fängt das Programm wieder beim ersten 
Buchstaben an. 

Im Teil 4 ist der einzige Unterschied zu Teil 3 die Schleife mit 
der Variablen R. Diese Schleife läuft hier doppelt so lange. Das 
Anfügen der Buchstaben bzw- der Leerzeichen geschieht hier für 
jedes Bit zweimal. Dadurch ergibt sich, daß die Buchstaben 
doppelt so groß werden wie in Teil 3- 

In Teil 5 schließlich ab Zeile 3020 wird die Darstellung der 
Zeichen etwas verändert- Der PÜKE—Befehl in Zeile 3020 bewirkt, 
daß die Zeichen in doppelter Größe dargestellt werden. Dazu 
gehören auch noch die Zeilen 1,4 und 5 - In Zeile 1 wird der für 
BASIC verfügbare Speicherplatz heruntergesetzt- In den Zeilen 4 
bis 5 wird der Charactergenerator ins RAM kopiert, wobei er 
derart verändert wird, daß jede Reihe eines Zeichen zweimal 
hintereinander gespeichert wird. In Zeile 3030 wird der Zeiger 
auf den Charactergenerator umgesetzt. Die Zeilen 3000 und 3010 
bewirken die Formatierung des Bildschirms und die Auswahl der 
Farbe. 
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3.4 Grafik mit Speichererweiterung 


Für die folgenden Programme benötigen Sie mindestens eine QK— 
Speichererweiterung. Sie werden in diesem Kapitel zuerst eine 
Grafik mit einer Auflösung von 168*176 Punkten kennenlernen, 
anschließend zeigen wir Ihnen ein Maschinenspracheprogramm , das 
die Handhabung der Grafik erheblich beschleunigt, dann einen 
etwas komfortableren Funktionenplotter und noch einige Grafiken, 
die einfach schön anzusehen sind. 

Doch zuerst müssen wir auch hier wieder etwas Theorie 
einschieben. Im Prinzip werden wir jetzt wieder das Gleiche 
machen wie ohne Speichererweiterung. Wir werden also den 
Charactergenerator wieder in den RAM-Bereich verschieben und den 
Bildschirm mit 240 verschiedenen Zeichen füllen. Sie fragen sich 
nun, wie die höhere Auflösung entsteht? Blättern Sie doch einmal 
kurz zu der Erklärung des Kontrol1registers 3 (Seite ) zurück. 
Dort steht, daß es die Möglichkeit gibt, mit einem Bit auf eine 
Darstellung der Zeichen in einer 8*16 Matrix umzuschalten. Genau 
davon machen wir jetzt Gebrauch. 

Stecken Sie mindestens eine 8K-Speichererweiterung in Ihren 
Rechner und schalten Sie das Gerät ein. Wir benötigen für die 
Grafikseite jetzt 4K-RAM Speicherplatz. Aus diesem Grund verlegen 
wir nun zuerst den BASIC-Start um 4K nach oben. Tippen Sie 
Folgendes ein: 

P0KE44,34:P0KE34*256,0:NEW 

Wenn Sie nun den Befehl PRINTFRE(I) eingeben, müßten 4K weniger 
Speicher zur Verfügung stehen als beim Einschalten. 

Wir werden Ihnen nun anhand eines kleinen BASIC-Programms die 
Grafik zeigen, bevor wir die Sache mit Hilfe von Maschinensprache 
etwas beschleunigen. Tippen Sie nun das folgende Programm ein: 
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20 GOSUB10000 
30 F0RI=-rfT04STEPS*rf/lB7 
40 X=U:Y=SINC I)*88+88 
50 GOSUB10800:U=U+1:NEXT 
80 GETA$:IFA$="“THENB0 
70 GOSUB10100:END 

10000 REM UMSCHALTUNG AUF GRAFIK 
10030 PRINT" :FORI=4358TO8047:POKEI,0:NEXT 
10040 P0KE368B7,151:P0KE3B8BB,81:POKE3G8B9,804 
10050 P0KE3B864,14 

10060 FORI = 1GT0855:POKE409B +I-1B,I:P0KE37888 +I-1B,G:NEXTI 
10070 RETURN 

10100 REM UMSCHALTUNG AUF TEXT 

10130 P0KE3B8B4,18:P0KE3B8BB,88:P0KE3B8B7,174 
10140 P0KE3B8B9,198:PRINT"U" 

10150 RETURN 

10800 REM PUNKT SETZEN 

10830 GOSUB10400 

10840 POKEAD,PEEK(AO) OR MA 

10850 RETURN 

10400 A0=4358 

10410 AY=INT( Y/lB)*33B+<YAND15) 

10480 AD=AD+1B*INT<X/8)+AY 
10430 MA=8t(7-(X AND 7)) 

10440 RETURN 

READY. 
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Mit dem vorstehenden Programm können Sie eine Sinuskurve aut dem 
Bildschirm zeichnen. 

Die Zeilen 30 bis 70 enthalten nur die übliche FÜR-NEXT-Schleite 


zur Berechnung 

der 

Sinus—Werte. 

Interessant sind 

erstmal 

die 

Zeilen 10030 

bis 

10050. In 

Zeile 10030 

Mird 

der 

Charactergenerator 

gelöscht. Das 

kennen Sie bereits aus 

der 

Grafik mit 

der 

Grundversion 

des VC-20, nur 

daß 

der 


Speicherbereich hier ein anderer ist. Die vier PÜKE—Befehle in 
den folgenden beiden Zeilen müssen Mir uns aber nun etMas genauer 
ansehen. 

Halten Sie die Tabelle mit den Kontrol1registern des Videochip 
bereit. Wir erklären Ihnen nun die vier PÜKE-Befehle sehr 
ausführlich, da Sie für das Verständnis der Grafik ganz Michtig 
sind. Anhand der binären Darstellung der Werte können Sie genau 
erkennen, Melche Bits der Register gesetzt Merden. 


1) PÜKE 36867,151 151 (DEZIMAL) = 10010111 (BINäR) 

Dieser PÜKE—Befehl belegt das Kontrol1register 3 mit dem Wert 
151. Bit O ist dafür verantMortlich, daß die Darstellung in 
einer 8*16 Matrix geMählt Mird. Die Bits 1 bis 5 bestimmen die 
Anzahl der Zeilen der Video Matrix, hier Merden 11 Reihen 
festgelegt. 


2) PÜKE 36866,21 21 (DEZIMAL) = 00010101 (BINäR) 

Dieser PÜKE—Befehl belegt das Kontrol1register 2 mit dem Wert 
21. Dies bedeutet, daß pro Zeile 21 Zeichen zur Verfügung 
stehen. 


3) PÜKE 36869,204 204 (DEZIMAL) = 11001100 (BINäR) 

Dieser PÜKE-Befehl belegt das Kontrol1register 5 mit dem Wert 
204. Daraus resultiert für das Video—RAM und den 
Charactergenerator die Startadresse 4096. 
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4) POKE 36864,14 14 (DEZIMAL) = 00001110 (BINäR) 

Dieser POKE-Befehl belegt das Kontrol1register 0 mit dem Wert 
14. Dies bedeutet, daß wir den Bildschirm horizontal 
zentrieren. 

In Zeile 10060 wird der Bildschirm mit den verschiedenen Zeichen 
gefüllt, wie Sie das auch schon von der Grafik in der 
Grundversion kennen. Gleichzeitig wird das Farb-RAM 
initialisiert. Im Unterprogramm ab Zeile 10400 werden die X- und 
Y-Werte wieder in die entsprechenden Speicherstellen umgerechnet. 
Beachten Sie, daß im Unterschied zur Grafik in der Grundversion 
die Y-Werte hier mit der Zahl 16 berechnet werden. In Zeile 10240 
wird dann der eigentliche Punkt gesetzt. 

In den Zeilen 10130 und 10140 wird der alte Zustand wieder 
hergestellt, d.h. es wird wieder in den Text-Modus geschaltet. 

Fassen wir zusammen: 

Wir haben auf dem VC-20 mit mindestens 8K-Speichererweiterung 
eine Grafik mit einer Auflösung von 168*176 Punkten erzeugt. Die 
Speichererweiterung ist notwendig, da allein für die Grafik 
bereits 4K Speicher benötigt werden. Die Grafik wird mit Hilfe 
der programmierbaren Zeichen erzeugt. Dreh- und Angelpunkt ist 
hierbei das Kontrol1register 5 des Videochip, mit dessen Hilfe 
der Charactergenerator in den RAM-Bereich verlegt werden kann. 
Wichtig ist weiterhin die Umschaltung auf die Darstellung der 
Zeichen in einer 8*16 Matrix, die mit Hilfe des Bits O im 
KontrolIregister 3 geschieht. 
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3-5 Grafikhil-fe mit Maschinensprache 


All dies haben wir bis jetzt von BASIC aus gemacht. Dadurch 
ergeben sich erhebliche Wartezeiten, besonders bei der 

Initialisierung der Grafik. Um dieses Manko auszuräumen, haben 
wir eine universelles Grafikprogramm in Maschinensprache 

erstellt. Das Assemblerlisting zu diesem Programm finden Sie auf 
den nächsten Seiten. Wenn Sie einen Monitor oder einen Assembler 
besitzen, können Sie es so abtippen. Damit Sie aber auch als nur 
BASIC-Programmierer in den Genuß dieses Programms kommen können, 
finden Sie nach dem Assemblerlisting ein BASIC-Programm, das in 
den DATA-Zeilen das Maschinenspracheprogramm enthält- Tippen Sie 
dieses Programm ab. Es prüft die Summe aller Zahlen, um sich zu 
vergewissern, daß Sie nichts falsch abgetippt haben. Bevor Sie 
das Programm laufen lassen, speichern Sie es unbedingt vorher ab, 
damit es sich bei eventuellen Tippfehlern nicht selber löscht. 
Bevor Sie beginnen, tippen Sie zuerst die folgende Zeile ein: 
P0KE44,34:P0KE34*256,0:NEW 

Mit dieser Zeile wird wieder der BASIC-Start hochgesetzt, um 
Platz für die Grafikseite und das Maschinenspracheprogramm zu 
schaffen. Diese Zeile müssen Sie jedesmal eintippen, bevor Sie 
mit der Grafik und dem Programm arbeiten können!! Sollten Sie 
dies vergessen, löscht sich das Programm selbst. 

Beachten Sie, daß sich Charactergenerator und VideoRAM 
überlappen. Die praktische Konsequenz daraus ist, daß Sie keine 
Eingaben machen können, ohne Ihr Bild zu zerstören- Aus diesem 
Grund finden Sie in den Grafikprogrammen die Abfrage zum Namen 
des Bildes zu Beginn des Programms. 
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£ 

100: 

£000 





.DPT 

PI 



130: 

£000 




XCÜORD 

= 

$14 



140: 

£000 




FLAG 

= 

$97 


PUNKT 5ETZEN/L0E5CHEN 

150: 

£000 




MA5KE 

= 

FLAG 

; 

MA5KE FUER HARDCOPY 

160: 

£000 




66 

= 

$69 

; 

5EKUNOAERADRE55E 

170: 

£000 




TMP 

= 

$FD 



180: 

£000 




ADR 

= 

TMP 



190: 

£000 




AV 

= 

T^P 



£20: 

£000 




COLLO 

= 

$9400 

i 

ANFANG HI-REG FARGRAM 

£30: 

£000 




COLHI 

= 

$9600 

} 

EMDE 

£40: 

£000 




6RAL0 

= 

$1 100 

; 

ANFANG HI-REG BITMAP 

£50: 

£000 




6RAHI 

= 

$2000 


EMDE 

260: 

£000 




6ETC0R 

= 

$D7EG 


HOLT X- UND Y-COORDINATEN 

£70: 

£000 




CHKCOM 

= 

$CEFD 

; 

PRUEFT AUF KOMMA 

280: 

£000 




6ETGYT 

= 

$D79E 


HOLT BYTE-WERT 

£90: 

£000 




VIDEO 

= 

$9000 

; 

VIDEOCONTROLLER 

300: 

£000 




6ETPAR 

= 

$E1D1 


HOLT FILENAMEN UND 6ERAETENUMMER 

310: 

£000 




CLR5CR 

= 

$E55F 

i 

L0E5CHT BILD5CHIRM 

340: 

£000 




LOAD 

= 

$FFD5 


LOAD ROUTINE 

350: 

£000 




5AVE 

= 

$FFD8 

! 

5AVE ROUTINE 

370: 

£000 





*= 

$2000 

; 

5PRUN6TABELLE FUER FUNKTIONEN 

380: 

£000 

4C 

16 

20 


JMP 

INIT 

; 

6RAFIK-M0DU5 EINSCHALTEN 

390: 

2003 

4C 

3E 

20 


JMP 

CLEAR 

; 

GRAFIK LOESCHEN 

400: 

£006 

4C 

55 

20 


JMP 

COLOR 

; 

FARBE SETZEN 

410: 

£009 

4C 

71 

20 


JMP 

REVER5 

; 

GRAFIK INVERTIEREN 

420: 

£00C 

4C 

8D 

20 


JMP 

5ET 

; 

GRAFIKPUNKT SETZEN 

430: 

E00F 

4C 

8A 

20 


JMP 

REGET 

; 

GRAFIKPUNKT LOESCHEN 

440: 

£012 

4C 

45 

21 


J^P 

6L0AD 

i 

GRAFIK LADEN 

450: 

£015 

4C 

£C 

£1 


JMP 

65AVE 

; 

GRAFIK ABSPEICHERN 

470: 

£018 

4C 

54 

£1 


JMP 

60FF 


GRAFIK AUS 

490: 

£016 

A9 

97 


INIT 

LDA 

♦♦151 

; 

GRAFIK EIN 

500: 

£01D 

8D 

03 

90 


5 TA 

36867 



510: 

£020 

A9 

15 



LDA 

♦♦£1 



510: 

£0££ 

8D 

02 

90 


5TA 

36866 



520: 

£025 

A9 

CC 



LDA 

♦♦£04 



520: 

£027 

80 

05 

90 


5 TA 

36869 



540: 

£0£A 

A9 

0E 



LDA 

♦♦14 



540: 

£0£C 

8D 

00 

90 


5TA 

36864 



550: 

£0£F 

A£ 

10 



LDX 

♦♦$10 

40 





5B0 


£031 8A 


CLl 


TXA 


5S0: 

£03£ 

90 

F0 

0F 


STA 

570: 

£035 

A9 

08 



LOA 

570: 

£037 

90 

F0 

93 


STA 

570: 

£03A 

E8 




INX 

570: 

£03B 

00 

F4 



BNE 

580: 

£030 

80 




RTS 

B10: 

£03E 

A9 

00 


CLEAR 

LOA 

B£0: 

£040 

A0 

1 1 



LOY 

B30: 

£04£ 

85 

FO 



STA 

B40: 

£044 

84 

FE 



STY 

B45: 

£04B 

A0 

00 



LOY 

B50: 

£048 

A£ 

0F 



LDX 

880: 

£04A 

91 

FO 


CLR 

STA 

S70: 

£04C 

C8 




INY 

S80: 

£040 

00 

FB 



BNE 

S90: 

£04F 

ES 

FE 



INC 

700: 

£051 

CA 




DEX 

710: 

£05£ 

00 

FS 



BNE 

7£0: 

£054 

80 




RTS 

740: 

£055 

£0 

FD 

CE 

COLOR 

JSR 

750: 

£058 

£0 

9E 

07 


JSR 

7S0: 

£05B 

A0 

00 


COL 

LOY 

770: 

£050 

A9 

94 



LOA 

780: 

£05F 

84 

FD 



STY 

790: 

£0S1 

85 

FE 



STA 

800: 

£083 

8A 




TXA 

810: 

£084 

A£ 

0£ 



LDX 

8£0: 

£088 

91 

FD 


COLI 

STA 

830: 

£088 

C8 




INY 

840: 

£089 

00 

FB 



BNE 

850: 

£08B 

EB 

FE 



INC 

880: 

£080 

CA 




DEX 

870: 

£08E 

00 

F8 



BNE 

880: 

£070 

80 




RTS 

900: 

£071 

A0 

00 


REVERS 

LOY 

910: 

£073 

A9 

1 1 



LOA 

9£0: 

£075 

84 

FD 



STY 

930: 

£077 

85 

FE 



STA 


GRAL0-$110,X 
«^6 

COLLO-16,X 

CLl 


♦♦0 ; GRAFIK SPEICHER LOESCHEN 

n> GRALO 
TMP 
TMP+1 
«^0 

n> GRAHI-GRALO ; ANZAHL PAGES 
< TMP),Y 

CLR 
TMP + 1 

; NAECHSTE PAGE 


CHKCÜM ; FARBE SETZEN 
GETBYT ; FARBCQDE HOLEN 
#0 

♦♦> COLLO 

TMP 

TMP+1 

; FARBCÜDE 

♦♦> COLHI-COLLO ; ANZAHL PAGES 
( TMP ) ,Y 

COLI 

TMP+1 

; NAECHSTE PAGE 

COLI 


♦♦0 ; GRAFIK INVERTIEREN 

l»>GRALO 

TMP 

TMP+1 


940 


£079 A£ 0F 


LDX ♦♦> GRAHI-GRALO 

41 


ANZAHL PAGES 



950: 

2078 

81 

FD 


REVl 

LD8 

< TMP),Y 



960: 

2070 

49 

FF 



EDR 

♦♦SFF 

; 

8LLE 61 TS UMOREHEN 

970: 

207F 

91 

FD 



ST8 

< TMP),Y 



980: 

2081 

C8 




INY 




990: 

2082 

D0 

F7 



6 NE 

REVl 



1000: 

2084 

E6 

FE 



INC 

TMP + 1 



1010: 

2086 

C8 




DEX 


; 

N8ECHSTE P8GE 

1020: 

2087 

D0 

F2 



6 NE 

REVl 



1030: 

2089 

60 



ILL 

RTS 


; 

8USSPRUNG SEI UNGUELTIGEN C00RDIN8T 

EN 










1050: 

208R 

89 

80 


RESET 

LD8 



GR8FIKPUNKT LOESCHEN 

1060: 

208C 

2C 




.6YT 

S2C 



1070: 

208D 

89 

00 


SET 

LD8 

#0 

; 

GR8FIKPUNKT LOESCHEN 

1080: 

208F 

85 

97 



ST8 

FL8G 



1090: 

2091 

20 

FD 

CE 


JSR 

CHKCOM 


K0MM8 

1 100: 

2094 

20 

9E 

D7 


JSR 

GET6YT 

; 

X-C00RDIN8TE N8CH X-REG 

1110: 

2097 

E0 

88 



CPX 

4168 



1 120: 

2099 

60 

EE 



6CS 

ILL 

; 

X-C00RDIN8TE > 167 

1 130: 

2098 

86 

14 



STX 

XCDDRD 



;i40: 

209D 

20 

FD 

CE 


JSR 

CHKCOM 



1 150: 

2080 

20 

9E 

D7 


JSR 

GET6YT 



1 160: 

2083 

E0 

80 



CPX 

4176 



1170: 

2085 

80 

E2 



6CS 

ILL 



1200: 

2087 

88 




TX8 


; 

Y-C00RDIN8TE IN 8KKU 

1210: 

2088 

48 




LSR 




1210: 

2089 

48 




LSR 




1210: 

2088 

48 




LSR 




1210: 

2088 

48 




LSR 




1210: 

208C 

08 




8SL 


; 

DURCH 16 M8L 2 

1220: 

208D 

88 




T8Y 









; OFFY 

= 336 

* INT<Y/16) + <Y 8ND 15) 

1240: 

208E 

69 

0E 

21 


LD8 

MULT,Y 



1250: 

2081 

80 

66 

21 


ST8 

OFFY 



1260: 

2084 

89 

0F 

21 


LD8 

MULT+1 , 

Y 

; M8L 336 

1270: 

2087 

80 

6C 

21 


ST8 

OFFY+1 



1280: 

2088 

88 




TX8 


; 

Y-C00RDIN8TE 

1290: 

2088 

29 

0F 



8ND 

4 15 



1300: 

208D 

18 




CLC 




1310: 

208E 

6D 

68 

21 


8DC 

OFFY 



1320: 

20C1 

80 

66 

21 


ST8 

OFFY 




42 



1320: 

20C4 

R9 

00 



LDR 

1320: 

20C6 

80 

6R 

21 


STR 






; OFFX 

= 16 

1360: 

20C9 

R5 

14 



LDR 

1360: 

20CB 

29 

F8 



RND 

1360: 

20CD 

0R 




RSL 

1360: 

20CE 

80 

69 

2 1 


STR 

1360: 

2001 

90 

04 



BCC 

1360: 

2003 

EE 

6R 

2 1 


INC 

1370: 

2006 

18 




CLC 

1380: 

2007 

R9 

00 


SET0 

LDR 

1390: 

2009 

60 

68 

21 


RDC 

1400: 

20DC 

85 

FD 



STR 

1410: 

20DE 

R9 

1 1 



LDR 

1420: 

20E0 

60 

6C 

21 


RDC 

1430: 

20E3 

85 

FE 



STR 

1440: 

20E5 

18 




CLC 

1450: 

20E6 

R5 

FD 



LDR 

1460: 

20E8 

60 

69 

2 1 


RDC 

1470: 

20EB 

85 

FD 



STR 

1480: 

20ED 

R5 

FE 



LDR 

1490: 

20EF 

60 

6R 

21 


RDC 

1500: 

20F2 

85 

FE 



STR 






II 

2t<: < ■ 

1520: 

20F4 

R5 

14 



LDR 

1530: 

20F6 

29 

07 



RND 

1540: 

20F8 

49 

07 



EOR 

1550: 

20FR 

RR 




TRX 

1560: 

20FB 

80 

24 

21 


LDR 

1570: 

20FE 

R0 

00 



LOY 

1580: 

2100 

24 

97 



BIT 

1590: 

2102 

10 

05 



BPL 

1600: 

2104 

49 

FF 



EOR 

1610: 

2106 

31 

FD 



RND 

1620: 

2108 

2C 




CD 

1630: 

2109 

1 1 

FD 


SETI 

ORR 

1640: 

210B 

91 

FD 



STR 

1650: 

2100 

60 




RTS 


; MULTIPLIKA 


1675: 

210E 

MULT 

= 

1680: 

210E 

COUNT 


1690: 

210E 00 00 


. WOR 

1700: 

2 110 

COUNT 


1710: 

21 10 


. IF 


«0 

OFFX+1 
: I NT< K/a ) 

XCOORD 
Uy.l 1 1 1 1000 

OFFX 

SET0 

OFFX+1 

; AV = GRALO + OFFY +OFFX 

♦♦<GRRLQ 

OFFY 

PV 

n >GRPLO 

OFFY+1 

PV+1 

PV 

OFFX 

PV 

PV+1 

OFFX+1 

PV+1 

X)RND7) 

XCOORD 

U7 

«7 

GRBIT,X ; 2 HOCH MR RUS TRBELLE 
^0 

FLRG 

SETI 

«SFF 

<:rv),y ; PUNKT loeschen 

S2C 

CRV),Y ; PUNKT SETZEN 
< RV ) , Y 

nONSTRBELLE N*336, N=0,10 
* 

0 

C0UNT*336 
COUNT+1 
COUNT-11 
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GOTO 1690 


1710: 

21 10 




1690: 

21 10 

50 

01 


1700: 

El 12 



COUNT 

1710: 

21 12 




1710: 

El 12 




1690: 

El 12 

80 

02 


1700: 

El 14 



COUNT 

1710: 

2114 




1710: 

E 114 




1690: 

2114 

F0 

03 


1700: 

21 16 



COUNT 

1710: 

2116 




1710: 

El 16 




1690: 

El 16 

40 

05 


1700: 

2118 



COUNT 

1710: 

21 18 




1710: 

El 18 




1690: 

21 18 

90 

06 


1700: 

El 18 



COUNT 

1710: 

El 18 




1710: 

El 18 




1690: 

2 118 

E0 

07 


1700: 

El IC 



COUNT 

1710: 

Elle 




1710: 

El IC 




1690: 

El IC 

30 

09 


1700: 

21 lE 



COUNT 

1710: 

21 lE 




1710: 

EHE 




1690: 

EHE 

80 

08 


1700: 

2120 



COUNT 

1710: 

2120 




1710: 

E1E0 




1690: 

2120 

00 

08 


1700: 

EIEE 



COUNT 

1710: 

EIEE 




1710: 

EIEE 




1690: 

EIEE 

20 

00 


1700: 

E1E4 



COUNT 

1710: 

2124 




1720: 

E1E4 

01 

02 

04 ORBIT 


.UOR C0UNT*336 
COUNT+1 
.IF COUNT-11 
.GOTO 1690 
.WOR C0UNT*336 
^ COUNT+1 
.IF COUNT-11 
.GOTO 1690 
.WOR C0UNT*336 
♦- COUNT+1 
.IF COUNT-11 
.GOTO 1690 
.WOR C0UNT*336 
♦- COUNT+1 
.IF COUNT-11 
.GOTO 1690 
.WOR C0UNT*336 
♦- COUNT+1 
.IF COUNT-11 
.GOTO 1690 
.WOR C0UNT*336 
♦- COUNT+1 
.IF COUNT-11 
.6OTO1690 
.WOR C0UNT*336 
♦- COUNT+1 
.IF COUNT-11 
.GOTO 1690 
.WOR C0UNT*336 
♦- COUNT+1 
.IF COUNT-11 
.GOTO 1690 
.WOR C0UNT*336 
♦- COUNT+1 
.IF COUNT-11 
.GOTO 1690 
.WOR C0UNT*336 
♦- COUNT+1 
.IF COUNT-11 

.BYT 1,3,4,8,$10,$20,$40,$80 


; ZWEIERPOTENZEN 
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1740: 

1750: 

1760: 

1770: 

1780: 

1790: 

1800: 

1810: 

1820: 

1830: 

1840: 

1860: 

1865: 

1870: 

1880: 

1890: 

1900: 

1920: 

1920: 

1930: 

1930: 

1940: 

1940: 

1950: 

1950: 

I960: 

2000 : 

2010 : 


212C 

20 

FD 

CE 

GSRVE 

JSR 

CHKCDM ; 

GRRFIK RBSPEICHERN 


212F 

20 

Dl 

El 


JSR 

GETPRR ; 

FILENRMEN UND GERRETERDRESSE 

HDLEN 

2132 

R2 

00 



LDX 

♦♦< GRRHI 



2134 

R0 

20 



LDY 

♦♦> GRRHI 



2136 

ft9 

00 



LDft 

GRRLD 



2138 

85 

FD 



STft 

TMP 



213ft 

A9 

1 1 



LDft 

♦♦> GRRLD 



213C 

85 

FE 



STft 

TMP + 1 



213E 

A9 

FD 



LDft 

♦♦TMP 



2140 

85 

89 



STR 

SR ; 

RBSDLUT SPEICHERN 


2142 

4C 

D8 

FF 


JMP 

SRVE 



2145 

20 

FD 

CE 

GLDRD 

JSR 

CHKCDM ; 

GRRFIK LRDEN 


2148 

20 

Dl 

El 


JSR 

GETPRR ; 

FILENRMEN UND GERRETERDRESSE 

HDLEN 

2148 

1=19 

01 



LDR 

♦♦1 ; 

RBSDLUT LRDEN 


214D 

85 

89 



STR 

SR 



214F 

1=19 

00 



LDR 

♦♦0 ; 

LDRD FLRG 


2151 

4C 

D5 

FF 


JMP 

LDRD 



2154 

1=19 

0C 


GDFF 

LDR 

♦♦12 



2156 

8D 

00 

90 


STR 

36864 



2159 

R9 

16 



LDR 

♦♦22 



2158 

8D 

02 

90 


STR 

36866 



215E 

1=19 

RE 



LDR 

♦♦174 



2160 

8D 

03 

90 


STR 

36867 



2163 

I=i9 

C0 



LDR 

♦♦192 



2165 

8D 

05 

90 


STR 

36869 



2168 

60 




RTS 




2168 




DFFX 

♦ = 

*+2 



216D 




DFFY 

*= 

* + 2 
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100 F0RI=8192T08552:READR:P0KEI,A:B=B+A 
110 NEXTI 

120 IFB< >43663THENPRINT“FEHLER M ! " 


1000 

DATA 

76 , 

27 , 

32 , 

76 , 62 , 32 , 76 

, 85 


1010 

DATA 

32 , 

76 , 

1 13 

, 32 , 

76 , 141 , 

32 , 

76 

1020 

DATA 

138 

, 32 

, 76 

, 63 , 

33 , 76 , 44 , 33 

1030 

DATA 

76 , 

84 

33 , 

169 , 

151 , 141 , 

3 , 

144 

1040 

DRTP 

169 

, 21 

, 141 

, 2 , 

144 , 169 , 

204 

, 141 

1050 

DRTP 

5 , 

144 , 

169 

, 14 , 

141 , 0 , 144 , 

162 

1060 

DRTP 

16 , 

138 

, 157 

, 240 

, 15 , 169, 

6,157 


1070 

DATA 

240 

, 147 

, 232 

,208,244,96,169,0 



1080 

DPiTPi 

160 

r 17 

, 133 

, 253 

, 132 , 254 

, 160 ,0 

1090 

DPTP 

162 

, 15 

, 145 

, 253 

, 200 , 208 

,251 , 230 

1 100 

DRTP 

254 

, 202 

,208, 

246,36 

,32,253,206 



1 1 10 

DPiTPi 

32 , 

158 

, 2 15 

, 160 

, 0 , 169 , 

148 

, 132 

1 120 

DATA 

253 

, 133 

,254 , 

138,162,2,145,253 



1 130 

DATA 

200 

, 208 

,251 , 

230,254,202 ,208 ,246 


1 140 

DATA 

96 , 

160 

, 0 , 

169 , 

17 , 132 , 

253 , 

133 

1 150 

DATA 

254 

, 162 

, 15,177,253 

,73,255,145 



1 160 

DATA 

253 

, 200 

,208, 

247,230,254,202,208 


1 170 

DATA 

242 

, 96 

, 169 

, 128 

, 44 , 169, 

0,133 


1 180 

DATA 

151 

, 32 

, 253 

, 206 

, 32 , 158, 

215,224 

1 190 

DATA 

168 

, 176 

,238 , 

134,20 

,32,253,206 



1200 

DATA 

32 , 

158 

, 215 

, 224 

, 176 , 176 

, 226 , 138 

1210 

DATA 

74 , 

74 , 

74 , 

74 , 

10 , 168 , 185 , 

14 

1220 

DATA 

33 , 

141 

, 107 

, 33 

, 185 , 15 , 

33 , 

141 

1230 

DATA 

108 

, 33 

, 138 

, 41 

, 15 , 24 , 

109 , 

107 

1240 

DATA 

33 , 

141 

, 107 

, 33 

, 169 ,0 , 

14 1 , 

106 

1250 

DATA 

33 , 

165 

, 20 

,41 , 

248 , 10 , 

141 , 

105 

1260 

DATA 

33 , 

144 

, 4 , 

238 , 

106 , 33 , 

24 , 

169 

1270 

DATA 

0 r 

109 , 

107 

, 33 , 

133 , 253 , 

169 

, 17 

1280 

DATA 

109 

, 108 

,33,133,254 

,24,165,253 



1290 

DATA 

109 

, 105 

,33,133,253 

,165,254,109 


1300 

DATA 

106 

, 33 

, 133 

, 254 

, 165 , 20, 

41 ,7 
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1310 

DRTR 

73 


170 , 189 , 36 , 33 , 160 

^ 0 

1320 

DATA 

36 , 

151 

, 16 , 5 , 73 , 255 , 49 , 

253 

1330 

DATA 

44 , 

17 , 

253 , 145 , 253 , 96 , 0 

, 0 

1340 

DATA 

80 , 

1 , 

160 , 2 , 240 , 3 , 64,5 


1350 

DATA 

144 

^ 6 , 

224 , 7 , 48 , 9 , 128 , 

10 

1360 

DATA 

208 

, 1 1 

, 32 , 13 , 1 , 2 , 4 , 8 


1370 

DATA 

16 , 

32 , 

64 , 128 , 32 , 253 , 206 

, 32 

1380 

DATA 

209 

, 225 

, 162,0,160,32,169,0 


1390 

DATA 

133 

, 253 

,169,17,133,254,169,253 


1400 

DATA 

133 

ID 

CD 

,76,216,255,32 ,253,206 


1410 

DATA 

32 , 

209 

, 225 , 169 , 1 , 133 , 185 , 169 

1420 

DATA 

0 , 

76 r 

213 , 255 , 169 , 12 , 141 

, 0 

1430 

DATA 

144 

r 169 

,22,141,2,144,169,174 


1440 

DATA 

141 

, 3 , 

144 , 169 , 192 , 141,5,1 

44 

1450 

DATA 

96 

255 

, 14 , 255 , 0 , 255 , 5 , 

255 
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Anwendung der Gra-f i khi 1-fe : 

Am An-fang des Gra-f i kprogramms steht eine Sprungtabelle -für die 
verschiedenen Funktionen. Am ein-fachsten können Sie alle 
Funktionen anwenden, wenn Sie sich zu Beginn Ihres Programms 
ebenfalls eine solche Tabelle anlegen. Dies könnte so aussehen: 

10 IN=2*4096;REM SYS IN - GRAFIK EINSCHALTEN 

20 CL=IN+3 :REM SYS CL - GRAFIK LÖSCHEN 

30 CG=IN-4-6 :REM SYS CG,PF - PUNKTFARBE SETZEN 

40 RV=IN+9 :REM SYS RV - GRAFIK INVERTIEREN 

50 SE=IN-4-12 :REM SYS SE,X,Y - GRAFIKPUNKT SETZEN 

60 RS=IN+15 :REM SYS RS,X,Y - GRAFIKPUNKT LÖSCHEN 

70 GL=IN-4-18 :REM SYS GL, "NAME",! ODER 8 - GRAFIK LADEN 

80 GS=IN+21 :REM SYS GS,"NAME",1 ODER 8 - GRAFIK ABSPEICHERN 

90 □F=IN-4-24 :REM SYS GF - GRAFIKMGDUS AUSSCHALTEN 

Dank der Grafikhilfe haben Sie nun eine echte Punktgrafik zur 
Verfügung- Sie können in der waagerechten (X-) Richtung 168 und 
in der senkrechten (Y-) Richtung 176 einzelne Punkte ansteuern- 
Ein Punkt wird gesetzt, in dem Sie zum Beispiel SYS SE,84,88 
eingeben. Die würde einen Punkt in der Mitte des Bildschirms 
setzen. Mit SYS IN schalten Sie den Grafikmodus ein, mit SYS CL 
löschen Sie die Grafikseite. Mit SYS CD,PF bestimmen Sie die 
Farbe aller Punkte. PF darf Werte zwischen 0 und 7 haben. SYS RV 
invertiert die gesamte Grafik. Mit SYS RS,84,88 können Sie den 
Punkt in der Mitte des Bildschirms wieder löschen. Mit SYS DF 
schalten Sie wieder den Textmodus ein. Sie können die gesamte 
Grafikseite auf Kassette oder Diskette abspeichern und wieder 
laden. Dies geschieht mit den beiden Befehlen SYS GS,"NAME",1 
oder 8 zum Abspeichern und SYS GL,"NAME",1 oder 8 zum Laden. 
Damit haben Sie die wichtigsten Funktionen, Setzen und Löschen 
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eines Punktes, Mahlen der Farbe, Gra-f i k ein- und ausschalten und 
Bilder laden bzw. abspeichern realisiert- Sicher gibt es noch 
viele Möglichkeiten, diese Gra-f i khi 1-f e zu erweitern. Dies Prog¬ 
ramm ist als Anregung -für Sie gedacht. Erweiterungen steht nur 
Ihre Fantasie entgegen. 

Unser Sinuskurvepragramm van Seite sieht nun so aus, wie Sie es 
unten sehen. Sie werden -feststellen, daß es um einiges schneller 
und kürzer geworden ist. Tippen Sie das Programm ein, nachdem Sie 
die Gra-f i khil-fe geladen haben. 

10 IN=2*4096 
20 CL=IN-4-3 
30 C0=lN+6 
40 SE=IN-4-12 
50 GF=IN-4-24 

60 SYS IN:SYS CL:SYS CG,6 

100 FGRI=-PITG2*PISTEP2*PI/168:REM BENUTZEN SIE DAS PI-ZEICHEN AUF 
IHRER TASTATUR 
110 X=U:Y=SIN(I >*88-4-88 
120 SYS SE,U,Y 
130 U=U-4-l 
140 NEXTI 

150 GETA^: I FA^= '• " THEN150 
160 SYS GFiEND 
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3.6 Funktionenplotter mit Luxus 

Auf der folgenden Seite finden Sie nun einen weiteren 
Funktionenplotter. Da wir etwas mehr Platz zur Verfügung haben 
als in der Grundversion, können wir diesen auch etwas 
komfortabler gestalten. So müssen Sie die Funktionen nicht mehr 
in die Zeilen hineinschreiben, sondern können Sie per INPUT 
eingeben. Das Programm modifiziert sich dann selber, indem es die 
Funktion in Zeile 20 schreibt. Da das Programm sich selber 
ändert, müssen Sie zwei Dinge beim Abtippen beachten: Ändern Sie 
auf keine Fälle Zeile 10 und 20 oder fügen Sie irgendetwas vor 
Zeile 20 ein! Wenn Sie das tun, stimmen die Adressen für die 
POKE-Anweisungen nicht mehr und schlimmstenfalls könnte sich das 
Programm selbst zerstören. Speichern Sie zweitens das Programm 
unbedingt zuerst ab, bevor Sie es laufen lassen. Ein Tippfehler 
kann in diesem Programm sehr fatale Folgen haben. 

Zur Benutzung des Programms: 

Der Funktionenplotter arbeitet interaktiv, d.h. er fragt Sie klar 
und deutlich nach allen Eingaben, so daß Sie praktisch nichts 
falsch machen können. Als erstes geben Sie die Funktion ein, die 
gezeichnet werden soll, z.B. SIN(X) . Als Variable müssen Sie 
immer "X" verwenden. Anschließend wird diese Funktion in Zeile 
20 geschrieben. Dies geschieht in den Zeilen 70 - 140. Sie geben 
nun Anfangs“ und Endpunkt der Funktion ein. Weiter können Sie 
wählen, ob Sie die Maximalwerte für Y selber bestimmen wollen. 
Nach allen Eingaben dauert es einen Moment, bis der Graph er— 
scheint, da das Programm die gesamte Funktion erst einmal durch¬ 
rechnet. Wenn der Graph fertig ist, können Sie durch Drücken 
einer Taste die Arbeit fortsetzen, entweder mit der gleichen 
Funktion unter neuen Bedingungen oder mit einer neuen Funktion. 
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10 G0T021 

20 ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: 

21 IN=2*4096 

22 CL=IN+3 

23 C0=IN+6 

24 RV=IN+9 

25 SE=IN+12 

26 RE=IN+15 

27 □F=IN+24 

28 SYS CO,3*16+3 

30 PRINTCHR$< 147):PRINT“ * FUhKTIONENPLOTTER *":PR INT:PRINT 
40 DIMY( 167):YM=1E37 

50 PRINT"GEBEN SIE NUN DIE FUl^KTION EIN F CX) = ":INPUTF$ 

60 F$="Y='•+F$:M = 8717 

70 FORI = lTOLEN( F$) : A$ = MID$< F$, 1,1) 

80 REST0RE:F0RJ = 1T06:READBS,B: IFA$=B$THENF=B:GOTO 130 
90 NEXTJ 

100 A$=MID$<F$,I,3):1=1+2 

110 FORJ = 1TO10:READB$,B: IFAS = B$THENF=B:GOTO 130 
115 NEXTJ 

120 I = I-2:F=ASC<MID$( F$,I,1)) 

130 P0KEM,F:M=M+1:NEXTI 

140 P0KEM,58:P0KEM+1,142:P0KEM+2,58:POKEM+3,143 
200 PR int:PR INT"BITTE GEBEN SIE NUN XL EIN : ": INPUTXL 

210 PRINT:PRINT"BITTE GEBEN SIE NUN XR EIN : ":INPUTXR 

220 IFXL>XRTHEN200 

230 PR int:PR INT"WOLLEN SIE DIE Y-WERTE BESTIMMEN ( J/N) 7" 

240 GETY$:IFYS=""THEN240 
250 IFY$="N"THEN290 
260 IFY$<>"J"THEN240 

270 PR int:PR INT"GEBEN SIE BITTE YU EIN : ":INPUTYU 

280 PR int:PR INT"GEBEN SIE BITTE YO EIN : ":INPUTY0 

290 IFYU>YOTHEN270 

340 PRINT-BITTE WARTEN SIE Elf^EN MO^E:NT" 

350 PRINT:PRINT"WEM4 DER GRAPH FERTIG IST, KOENNEN SIE DURCH DRUECKEN 
360 PRINT"EINER TASTE FORTFAHREN" 

400 IFY$="J"THEN475 

410 DX = ( XR-XL)/'167:Y1=YM: Y2 = -YM 
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430 X=XL:FORI=0TO167 

431 IFX=0THEN440 

432 GGSUB20:Y<I)=Y 

440 X=X+DX:IFY=YMTHEN470 
450 IFY<Y1THENY1=Y 
460 IFY>Y2THENY2=Y 
470 NEXTI 

475 SYS IN :SYS CL 

480 IFY*="N"THENYU=Y1:Y0=Y2 

500 DX=< XR-XL)/167: DY=< YO-YU )/176 : M=': XR-XL)/DX 
510 8=176.5+YU/DY:ft=.5+M 

520 IFB>=0ftNDB< = 177THENFORI=0TOft:SYSSE,I,B:NEXT:GOTO540 
530 8=180 

540 R=.5-XL/DX:B=176.5-< YO-YU)/DY 

550 IFR>=0ftNDft<=169THENFGRI=BTG176:SYS SE,ft,i:NEXT 
600 X=XL:Z=176.5 
610 FORI=0TOM 
630 Y=Y< I ) 

640 B = Z-< Y-YU)/OY 

650 IFB>=0ftNOB<=177THENSYSSE,I,8 
660 X=X+0X:NEXTI 
700 GETT*:IFT*=""THEN700 
705 SYS OF 

720 PRINTCHR^C 147):PRINT:PRINT"N0CH EINMAL UNTER ANOEREN BEOINGUNGEN <J/N) 
730 GETN^: IFN$=’'"THEN730 
740 IFN*=“N"THEN760 
750 GOTO200 

760 PRINT:PRINT"N0CH EINE FUNKTION <J/N)" 

770 GET N*:IFN$="“THEN770 
780 IFN^="N-THENEMD 
820 GOTO50 

2000 OATA +,170,-,171,*,172,/,173,t,174, = ,178 

2010 OATA SGN,180,INT,181,ABS,182,SQR,186,RND ,187,LOG,188,EXP,189 
2020 OATA COS,190,SIN,191,TAN,192,ATN,193 

REAOY. 
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3.7 Grafikeditor 


Das folgende Programm ermöglicht es Ihnen mit Hilfe der 
Cursortasten oder des Joysticks auf dem Bildschirm zu zeichnen. 
Weiterhin können Sie mit Hilfe der Funktionstasten die Farben 
ändern, Bilder abspeichern und laden. Den Grafikeditor können Sie 
benutzen, um Bilder zu malen oder um Grafiken für Spiele zu 
gestalten. 

Die Tasten sind wie folgt belegt: 

Cursortasten und Joystick : Bewegung des Cursors in alle 4 

Richtungen 


Taste 

Fl 


Farbe der Punkte ändern 

Taste 

F3 


Farbe des Rahmens ändern 

Taste 

F5 


Farbe des Hintergrunds ändern 

Taste 

F7 


Schalter für Modus Zeichnen/Löschen 

Taste 

F2 


Laden eines Bildes 

T aste 

F4 


Speichern eines Bildes 

Taste 

FS 


Bild löschen 


Zu Beginn des Programms müssen Sie angeben, wie Ihr Bild heißen 
soll und ob Sie mit Datasette oder Diskettenlaufwerk arbeiten. 
Dann können Sie zeichnen oder ein Bild unter dem angegebenen 
Namen laden. Mit der Taste F7 wählen Sie, ob Sie den Cursor nur 
bewegen oder ob Sie auch zeichnen wollen. Sie können jederzeit 
die Farben auf dem Bildschirm ändern, indem Sie einfach die 
entsprechenden Funktionstasten drücken. 

Das Programm ist ganz einfach aufgebaut und erlaubt Ihnen daher 
ohne Schwierigkeiten eigene-Erweiterungen einzubauen. 
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10 GOSUB1000:X=0:Y=0 

16 IN=2*4096 

17 CL=IN+3 
13 C0=IN+6 
19 RV=IN+9 
£0 SE=IN+12 
21 RE=IN+15 

25 6L=IN+18 

26 G5=IN+21 

27 0F=IN+24 

2S 5Y5 IN:5Y5 CL:5Y5 CO,3 
30 GETA$:5YS5E,X,Y 
35 IF5=0THEN5Y5 RE,X,Y 

4 0 IFAS=CHR$': 17)THENY=Y+1 :SY55E ,X ,Y:GOTO100 
50 IFA$=CHR$<: 145)THENY=Y-1 :SYS SE ,X,Y: GOTO 100 
60 IFA$=CHR$': 29)THEr'lX=X+l :5Y5 5E ,X,Y:GOTO 100 
70 IFA$=CHR$': 157>THENX=X-1 :5YS 5E ,X, Y: GOTO 100 
80 IFAS=CHR$«: 133)THENF=< F+1 )RND7 :SY5 CO,F 
90 IFA$=CHR$': 136)THEN5=1+< 5=1 ) 

100 IFAS=CHR$': 134)THENH1=< Hl + 1 )RND7:H = H1+H3:P0KE36879,H 

120 IFA$=CHR$': 135)THENH2=< H2 + 1) AND 1 5 : H3=H2* 16+8 : H =H 1 +H3 : P0KE36879 ,H 

130 IFA$=CHR$': 137 ATHENS YS GL,N$,D 

140 IFA$=CHR$': 138)THEN SYS GS,N$,D 

150 IFA$=CHR$<: 140)THEN SYS CL 

160 P0KE37154,127:P2=PEEK< 37152)AND128 

170 P1=PEEK-: 37151 ) :P0KE37154,255 

180 IFP2=0THENX=X+1:SYSSE,X,Y:G0T0999 

190 IFC PIAND16)=0THENX = X-1 :SYSSE,X,Y:G0T0999 

200 IF< P1ANDS)=0THENY=Y+1:SYSSE,X,Y:G0T0999 

210 IFCP1AND4)=0THENY=Y-1:SYSSE,X,Y:G0T0999 

999 GOTO30 

1000 PRINT"GEBEN SIE DEN NAMEN DES BILDES EIN":INPUTNS 

1020 PR INT"ARBEITEN SIE MIT DISKETTE ODER KASSETTE CD/K)": INPUTDS 
1040 IFD$="D"THEND=8:RETURN 
1050 IFD$="K"THEND=1:RETURN 
1060 GOTO 1020 
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3.8 Gra-fiken zum Anschauen 

Zum guten Schluß möchten wir Ihnen noch ein paar kleine Programme 
zeigen, die Grafiken auf dem Bildschirm erzeugen, die Sie sicher 
kennen, von denen Sie aber bis jetzt nicht wußten, wie diese 
gemacht werden- Wir verzichten hier bewußt auf mathematische 
Erklärungen, wie und warum die Grafiken entstehen. Diese kleinen 
Programme sollen Sie lediglich erfreuen und anregen, sich doch 
mit dem faszinierenden Gebiet der Computergraphik zu 
beschäftigen. 

Alle Programme fragen zu Beginn nach einem Namen für das Bild und 
ob Sie mit Diskette oder Kassette arbeiten. Nach Fertigstellung 
können Sie das Bild dann abspeichern. Sie brauchen dafür nur "S" 
einzutippen. Durch Betätigen der Taste "E" können Sie das 
Programm beenden ohne das Bild abzuspeichern. 

Voraussetzung für all diese Programme ist, daß Sie die 

Grafikhilfe geladen haben. 

Das erste Programm erzeugt ein Linienmuster auf dem Bildschirm: 

10 IN=2*4096 

11 CL=IN+3 

12 C0=IN+6 

13 SE=IN+12 

14 GS=IN+21 

15 □F=IN+24 
25 GOSUB 600 

28 P0KE36879,8 

29 SYS IN:SYS CL: SYS CQ,! 

30 F0RX1=0TÜ168STEP20 
40 F0RX2=0TÜ168STEP20 
50 DX=(X2-X1)/178:X=X1 
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60 F0RY=0T0176 

70 X=X+DX 

80 SYS SE,X,Y 

90 NEXTY,X2,X1 

500 GET:IFA^=""THEN500 

520 IFA^="E"THENEND 

530 IFA^<>"S"THEN500 

540 SYS □F:P0KE36879,27 

550 IFD^="K"THENSYS GS,N^,1 

560 IFD^="D"THENSYS GS,N^,8 

570 END 

600 INPUT"NAME";N^ 

610 INPUT-KASETTE GDER DISKETTE (K/D) ";D^ 

620 RETURN 


Wenn Sie die Schrittweite in den Zeilen 30 und 40 variieren, 
erhalten Sie weitere schöne Muster. Nehmen Sie in den beiden 
Zeilen auch einmal verschiedene Werte. 

Der E-f-fekt des nächsten Programms hängt hauptsächlich vom Wert 
der Variablen K ab. Wählen Sie -für K einmal sehr kleine Werte von 
1 bis 10, zum andern sehr große wie z.B. 60 oder 270. 

21 IN=2*4096 

22 CL=IN+3 

23 C0=IN+6 

24 SE=IN+12 

25 GS=IN+21 

26 □F=IN+24 

27 PI=3.14159265 

28 G0SUB600 

29 P0KE36879,8 

30 INPUT"K0NSTANTE";K:V=10 
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35 SYS IN:SYS CL: SYS Cü,l 
40 F0RI=0TÜ2*PISTEP2*P1/672 
50 R=V*SIN(K*I) 

60 X=R*7*CÜS(K)+83 
70 Y=R*7*SIN(I)+87 
80 SYS SE,X,Y 
90 NEXTI 

500 GET:IFA^=""THEN100 
520 IFA^="E"THENEND 
530 IFA^<>"S"THEN500 
540 SYS □F:P0KE36879,27 
550 IFD^="K"THENSYS GS,N^,1 
560 IFD^="D"THENSYS GS,N^,8 
570 END 

600 INPUT"NAME";N^ 

610 INPUT"KASETTE ODER DISKETTE (K/D) ";D^ 

620 RETURN 

V ist hier ein Vergrößerungsfaktor, die Schrittweite in Zeile 40 
bestimmt, wie dicht die einzelnen Punkte aneinander 1iegen. Beide 
Werte können Sie nach eigenem Geschmack verändern. 

Das nächste Programm erzeugt eine Spirale. Der Effekt hängt hier 
hauptsächlich von der Variablen E ab. Sehr kleine Werte für E wie 
z.B. 0.05 ergeben eine sehr schöne Spirale. Ein völlig anderer 
Effekt ergibt sich, wenn Sie für E Werte zwischen 1 und 5 wählen. 
Doch lassen Sie sich überraschen: 
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21 IN=2*4096 

22 CL=IN+3 

23 CÜ=IN+6 

24 SE=IN+12 

25 GS=IN+21 

26 ÜF=IN+24 

28 GÜSUB 600 

29 PÜKE36879,8 

30 INPUT"KONSTANTE ";E 

35 SYS IN:SYS CL: SYS C0,1 
40 F0RI=0T0200STEPE 
50 X=I*CÜS(I)+84 
60 Y=I*SIN(I)+88 
70 IFX<0ÜRX>167THEN95 
80 IFY<0ÜRY;>175THEN95 
90 SYS SE,X,Y 
95 NEXTI 

500 GETA$:IFA$=""THEN100 
520 IFA$="E"THENEND 
530 IFA$<>"S"THEN500 
540 SYS □F:PÜKE36879,27 
550 IFD$="K"THENSYS GS,N^,1 
560 IFD$="D"THENSYS GS,N$,8 
570 END 

600 INPUT"NAME";N$ 

610 INPUT"KASETTE ODER DISKETTE (K/D) ";D$ 

620 RETURN 


Das nachfolgende Programm erzeugt in sich 
Rechtecke. 


verdrehte 
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£0 REM RECHTECKE *** 

£1 IN=£*409B 

££ CL=IN+3 
£3 CÜ=irJ + 6 
£4 SE=IN+1£ 

£T. GS = IN+£1 
£S GF=rN+£4 
£S GOSUB600 
£3 P0KE36879,8 

30 SYS in:SYS CL:SYS CO,1 

31 X< 1 ) =0 : Y( 1 ) =0 : XC £ ) = 167 : Y-: £ ) =0 

35 X«: 3 ) = 167 : Y< 3 ) = 175 : X< 4 .) =0 : Y< 4 ) = 175 
40 X< 5 ) =X>: 1 ) : Y< 5 ) = Y< 1 ) : H = . 5 : K = 15 
50 FÜRI=1TO40:FÜRJ=1TO4 
100 XI =X< J ) : Y1 =Y< J ) 

130 X£=X>: J + 1 ) : Y£=Y>: J+1) 

135 IFYl=Y3THENF0RX=XlT0X£STEPl+£*( XI>X£):SYSSE,X,Y1:NEXTX:GOTO 190 
140 DX = ( X3-X 1 )/'PBS( Yl-Y£ ) : X=X 1 
150 F0RY = Y1T0Y£STEP1+£*< Y1 >Y£) 

160 SYS SE,X,Y:X=X+DX 
180 NEXTY 
190 NEXTJ 
£00 F0RJ=1T04 

£10 XXC J ) =X( J ) + INT< < Xu J + 1 ) -X< J ) )/'K+H) 

££0 YY( J ) = YC J ) + I NT< < Y-: J + 1 ) - Y< J !) ) /K +H ) : NEXTJ 

£50 FORJ = 1 T04 : X-: J ) =XX': J ) : Y< J ) =YY-: J ) : NEXTJ 

£60 X< 5 ) =X>: 1) : YC 5 ) =Y( 1 ) 

£70 NEXTI 

500 GET IFP$=""THEN500 
5£0 IFA$="E"THENENO 
530 IFA$< >"S''THEN500 
540 SYS OF:P0KE36879,£7 
550 IFD$="K-THENSYS GS,N$,1 
560 IFD.5= "D "THENSYS GS,NS,8 
570 Em 

600 INPUT"NAME";NS 

610 PR INT"KASSETTE ODER DISKETTE <K/D)": INPUTDS 
6£0 RETURN 
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Gehen wir einen Schritt weiter. Das Programm auf der nächsten 
Seite erzeugt in sich verdrehte Sechsecke. Die Schleife in Zeile 
100 bestimmt die Anzahl der Sechsecke, die auf dem Bildschirm 
gezeichnet werden. Durch Verändern der Variablen W in Zeile 40 
können Sie auch Achtecke oder Figuren mit noch mehr Ecken 
erzeugen. Sie müssen dann aber auch die Schleifen in den Zeilen 
50,110,200 und 250 verändern. Ferner müssen Sie eventuell Felder 
für X, MX, Y und MY dimensionieren und die Zeile 240 
modifizieren. 

Ein weiteres sehr schönes Programm finden Sie auf der 
übernächsten Seite. Es erzeugt eine ellipsenförmige Figur mit 20 
Eckpunkten, in der jeder Eckpunkt mit jedem Eckpunkt durch eine 
Strecke verbunden ist. 

Mit den beiden letzten Programmen wagen wir uns in den Bereich 
der dreidimensionalen Grafik. Die beiden Programme sind identisch 
aufgebaut, lediglich die Definition der Funktionen in Zeile 30 
ist verschieden. Die beiden Programme laufen relativ lange. Haben 
Sie also bitte etwas Geduld. Bedenken Sie, daß mehrere Tausend 
Punkte berechnet werden müssen. 
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20 REM SECHSECKE 

21 IN=2*4096 

22 CL=IN+3 

23 C0=IN+6 

24 SE=IN+12 

25 GS=IN+21 

26 □F=IN+24 

28 SYS IN:SYS CL:SYS CG,8*16+3 
30 DIMXC 6) ,Y<6) ,MXC 6) ,MY< 6) 

40 R=84:U=84:V=88:H=.5:U=60*rf/180 

50 FGRJ=0TG6:U1=J*U 

60 XC J) = INTC U-R*CGS< Ul )+H) 

70 Y< J) = INTC V+R*SIN<U1)+H) 

80 NEXTJ 

100 FGRN=1TG20 

110 FGRJ=0TG5 

130 X1=X< J ) : Y1 =YC J) : X2=XC J+ 1 ) : Y2 = Y< J+ 1 ) 

135 IFY1=Y2THENFGRX=X1TGX2STEP1+2*< XI>X2):SYSSE,X,Y1,NEXTX:GGTG190 
140 GX=<X2-X1)/RBS<Y1-Y2):X=X1 
150 FGRY=YlTGY2STEPl+2*<Y1>Y2) 

160 SYS SE,X,Y 
170 X=X+GX 
180 NEXTY 
190 NEXTJ 
200 FGRI=0TG5 

210 MXC I )=INTC <XC I )+X< I+l ) )/2+H) 

220 MY< I ) = INT< C YC I ) +YC I + 1 ) )/2 +H ) 

230 NEXTI 

240 MXC 6 ) =MXC 0 ) : MY'C 6 ) =MYC 0 ) 

250 FGRI=0TG6 

260 XC I ) =MXC I ) : Y< I ) =MYC I ) 

270 NEXTI 
280 NEXTN 
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20 REM ELLIPSE 

21 IN=2*4096 

22 CL=IN+3 

23 C0=IN+6 

24 SE=IN+12 

25 6S=IN+21 

26 ÜF=IN+24 

28 GOSUB600 

29 P0KE36879,8 

30 SYS in:SYS CL:SYS CO,1 

35 A=83:B=87:N=20:DIMX< 20),Y< 20) 

40 R = 83 : U=84 : V=87 : H= . 5 : W=360/N*.f/180 
50 FORJ=0TON-1:W1=J*U 
60 J) = INT< U+A*COS< Ul )+H) 

70 Y( J) = INT( V-B*SIN< Ul )+H) 

80 NEXTJ 

100 FÜRI=0TON-2:X1=X< I) :Y1=Y<I) 

110 FORJ=I+lTON-l 
130 X2=X( J): Y2 = Y< J) 

135 IFY1=Y2THENF0RX=X1T0X2STEP1+2*< X1>X2):SYSSE,X,Y1:NEXTX:GOTO 1 90 
140 OX = ( X2-X1)/ABS( Y1-Y2):X=X1 
150 F0RY=Y1T0Y2STEP1+2*< Y1>Y2) 

160 SYS SE,X,Y 
170 X=X+OX 
180 NEXTY 
190 NEXTJ 
270 NEXTI 

500 GET IFA$=""THEN500 

520 IFA$="E"THENENO 
530 IFA$< >''S"THEN500 
540 SYS 0F:P0KE36879,27 
550 IFD$="K"THENSYS GS,Ni,l 
560 IFO$="0"THENSYS GS,N$,8 
570 EMD 

600 ir'tf=UT*'NAME";N$ 

610 PR INT "KASSETTE OOER O ISKETTE < K/'O ) " : Il^UTOS 
620 RETURN 
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21 IN=2*4096 

22 CL=IN+3 

23 CÜ=IN+6 

24 RV=IN+9 

25 5E=IN+12 

26 65=IN+21 

27 ÜF=IN+24 

28 GO5UB600 

29 P0KE36879,8 

30 SYS IN:SYS CL:SYS CO ,1 

35 DEFFNA< Z )=90*EXP< -Z*Z/'1500) 

40 F0RP=1T02 

50 G=84:K=50:FQRX = -83TO0:L = -50:H = 5*INTC SQR«: 1 0000-X*X )/'5 ) 
60 F0RY=HTÜ-HSTEP-5:Z=25+Fm< SQR< X*X + Y*Y) )-.6*Y 
65 X1=G+X:Y1=176-Z-K:X2=G-X 

70 IFZ>LTHENL=Z:SYS SE,X1,Y1:SYS SE,X2,Y1 
80 NEXTY,X 

500 GET IFA$=""THEN500 

510 SYS ÜF:P0KE36879,27 
520 IFA$="E''THENEND 
530 IFA$<>"S"THEN500 
540 SYS ÜF:P0KE36879,27 
550 IFD$="K"THENSYS GS,N$,1 
560 IFD$= "D"THENSYS GS,N:®,8 
570 END 

600 INPUT"NPME";N$ 

610 PR INT "KASSETTE ODER DISKETTE < K/'D ) ** : I M=UTD$ 

620 RETURN 

READY. 
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21 IN=2*4096 

22 CL=IN+3 

23 CÜ=IN+6 

24 RV=IN+9 

25 5E=IN+12 

26 GS=IN+21 

27 ÜF=IN+24 
23 GO5UB600 

29 P0KE36879,8 

30 3YS IN:3YS CL:SYS CO,1 

35 DEFFNAC Z ) =38**: 3 INC Z/24 ) + . 43*S INC 3*Z/24 ) ) +20 
40 F0RA=1T02 

50 G=84:K=50:FORX=-83TO0:L=-50:H=5*INTC5QRC10000-X)/5) 
60 F0RY=HT0-H3TEP-5:Z=25+FNAC SQRC X*X+Y*Y))-.6*Y 
65 X1=G+X:Y1=176-Z-K:X2=G-X 

70 IFZ>LTHENL=Z:5Y3 SE,X1,Y1:3Y5 SE,X2,Y1 
30 NEXTY,X 

500 GET IFA$=''"THEN500 

510 5Y3 □F:P0KE36379,27 
520 IFA$="E“THENEND 
530 IFA$< >"3"THEN500 
540 3YS 0F:PÜKE36879,27 
550 IFD$="K"THENSYS G5,N$,1 
560 IFD$="D“THENSYS G5,N$,8 
570 END 

600 INPUT"NAME" i N$ 

610 PR INT"KA5SETTE ODER DISKETTE C K/D ) " : I M=>UTp$ 

620 RETURN 

READY. 
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3.9 Die Supererweiterung des VC-20 


Wie Sie sicher wissen, besteht die Supererweiterung VC—1211A aus 
zwei Teilen 

— einer 3K Speichererweiterung 

— dem Superexpander als 2K Be-fehlserweiterung 

Die Supererweiterung des VC-20 erweitert sowohl die graphischen, 
als auch die musikalischen Möglichkeiten des VC-20 um ein 
Vielfaches. Sie kann mit normalen Basic Befehlen programmiert 
werden. Die Programme, die auf einer Supererweiterung geschrieben 
wurden, laufen auch nur mit selbiger. Dies gilt auch, wenn Sie 
eine Supererweiterung zuscimmen mit einem 

Speichererweiterungsmodul eingesteckt haben. Die Erweiterung 
stellt Ihnen über 15 neue Befehle zur Verfügung, die es Ihnen 
erlauben, sehr einfach und wirkungsvoll zu arbeiten. 

Die Supererweiterung teilt den VC-20 Bildschirm in 1024 mal 1024 
Punkte ein. Wenn Sie nun den folgenden Befehl eingeben, wird auf 
der Mitte des Bildschirmes ein Punkt erscheinen: GRAPHIC2 : POINT 
1,512,512 Es muß jedoch beachtet werden, daß es sich hier um 
Pseudo-Koordinaten handelt. Sie geben nicht die tatsächliche 
Auflösung der Erweiterung an, sondern einen internen Standard,der 
in die wirkliche Auflösung von 160 mal 160 Punkten umgerechnet 
wird. 

Sicher haben auch Sie schon das Problem gehabt, daß Sie ein 
Programm hatten, das nur für eine normale 3k Ram Erweiterung 
geschrieben wurde und nun nicht mit der Supererweiterung läuft. 
Es besteht aber die Möglichkeit, den Superexpander abzuschalten. 
Dies geschieht durch die einfache Eingabe eines SYS Befehls. 
Dieser lautet: SYS 64818 ( SYS steht immer für System )- Nach 
Eingabe dieses Befehls können Sie nun Ihre 3k Programme wie 
gewohnt einladen. 

Eingeschaltet wird der Superexpander wiederum mit einem SYS Be¬ 
fehl: SYS 64802. Dieser SYS Befehl ist ein System Reset 
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Befehl,das heißt, der VC-20 befindet sich im selben Zustand, wie 
nach dem Einschalten- Sie können dieses kontrollieren, indem Sie 
die Funktionstasten betätigen. Es werden nun wieder wie gewohnt 
die Expanderbefehle erscheinen- Auf den nun folgenden Seiten 
werden wir Ihnen einige Beispiele zeigen, die es Ihnen 
ermöglichen, wirklich alles aus dieser, wie wir meinen, 
einzigartigen Erweiterung herauszuholen. Viel Spaß beim Eingeben 
und Ausprobieren- Es folgt nun ein kleines Programm,das Ihnen die 
Vielzahl der Farbmöglichkeiten darlegt. 


100 PRINT "(CLR/HÜME) " 

110 DEF FNC(V) =V*16-8 

120 H=36879 

130 FÜR BK= 1 Tü Ih 

140 PRINT "( CLEAR ) ( WHT) " 

150 IF BK > 1 THEN PRINT " ( BLK) 

160 PRINT •• HINTERGRUND" 

165 PRINT " (CRSR DOWN ) " BK 

170 FÜR BD = O Tü 7 

180 PÜKE H, FNC (BK) + BD 

190 PRINT , " RAHMEN " ; BD 

200 FÜR W = 1 TO 500 : NEXT W 

210 NEXT BD 

220 NEXT BK 

230 PÜKE H, 27 

240 END 


Nun haben Sie die vielen Möglichkeiten der Supererweiterung 
gesehen. Es folgen nun noch Programme, die Ihnen als kleiner 
Denkanstoß für Ihre eigenen Programme dienen sollen. Als erstes 
ein Programm das eine Sinus—Kurve mit dem dazugehörigen Koordina— 
tenkreuz zeichnet- 
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10 REM 


SINUS-KURVE 


20 PRINT " ( CLR/HÜME ) " 

30 CÜLÜR 0,0,7,7 

40 FÜR N=0 Tü 1022 

50 M=512-400* SIN (N/512 * 3.14) 

60 GRAPHIC 2 
70 POINT 1,M,N 
80 NEXT N 

90 DRAW 2, O, 512T01023, 512T01023, 512 
100 DRAW 2, 512, 512TÜ512, 1023TÜ512, O 

Versuchen Sie nun mal, daraus ein Programm zu erstellen. 
Ihnen ermöglicht, eine beliebige Funktion einzugeben. Eine 
Hilfe am Rand: sehen Sie sich die Zeilen 40 und 50 ai 
überlegen Sie einmal, ob da nicht etwas mit Variablen zu 
ist. 


Das nächste Programm nennt sich Kaleidoskop, nicht ohne 
wie Sie nach dem Eingeben feststellen werden. Viel Spaß !! 


1 REM : KALEIDOSKOP 
5 PRINT •• (CLR/HÜME) " 

10 GRAHPIC 2 : COLOR 6,0,5,5 
20 REGION 5 

50 DEF FNA (X) = INT (RND (1)*X) +1 
100 FÜR X=1T01023 STEP FNA (70)+10 
105 COLOR 2,0,5,5 
110 DRAW 1, X, 0T01023, X 
120 DRAW 1, O, XTÜX, 1023 
130 DRAW 1, X, OTÜO, 1023-X 
140 DRAW 1, 1023, XT01023-X, 1023 
145 CÜLÜR 0,0,5,5 
150 DRAW 1, X, OTO1023-X, 1023 
160 DRAW 1, 1023, XTOO, 1023-X 
180 IF X=1020 THEN210 
200 NEXT 

210 FÜR I=1T04500 : NEXT 


das es 
kleine 
I und 
machen 

Grund, 
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220 GRAPHIC 4 : CÜLÜR 1,3,6,6 

230 PRINT •• NOCH EINMAL ??? (J/N) " 

240 GET ZZ^ 

260 IF ZZ^= "N" THEN PRINT :GÜTÜ300 
270 IF ZZ^ <> "J" THEN 240 
280 GOTO 10 

300 FÜR I=1TÜ2000 : NEXT 
310 END 

Das falgende Programm simuliert eine 3 D—Darstel1ung. Sie werden 
nach dem Abstand ge-fragt, der die Variable "D" hat- In Zeile 4 
wird die Variable umbenannt nach "P" und mit dem Faktor 2,7 
addiert und taucht in der Zeile 110 wieder auf. Um den Abstand 
der Kreise zu berechnen, benötigt der Computer eine weitere 
Variable, die hier ebenfalls mit "D" benannt wird (Zeilen 6+7). 
Nachdem der Computer die Pseudo 3 D—Darstel1ung gezeichnet hat, 
wird der Bildschirm in Zeile 156 gelöscht und der Computer 
beginnt mit dem Zeichnen der vorher eingegebenen Kreise. In Zeile 
230 wird wieder in den normalen Graphik-Bildschirm 
zurückgeschaltet. Dieses geschieht mit dem Befehl "GRAPHIC 4" und 
dem Color—Befehl "CÜLÜR 1,3,6,6". Sie werden aufgefordert, ein 
neues Bild nach Eingabe Ihrer Koordinaten zeichnen zu lassen. 
Beantworten Sie diese Aufforderung mit nein, springt der Computer 
zum Ende des Programms und zeigt Ihnen den noch frei verfügbaren 
Speicherplatz an- 

O PRINT "(CLR/HÜME)" 

2 PRINT "WELCHEN ABSTAND(10-90)" 

3 INPUT D 

4 P=D+2-7 

5 PRINT"WELCHER ABSTAND DER KREISE (10-100)" 

6 INPUT D 

7 D=D 

9 COLOR 0,0,0,0 
10 GRAPHIC 2 
20 REGION 1 

50 DEF FNA (X)=INT (RND(1)*X)+1 
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100 FÜR A= 1T04 

110 FÜR X= 10TÜ1023 STEP FNA (P) +10 
120 DRAW 1,1023-X, X Tü X, 0+X 
130 DRAW 1,X,1023-X Tü 0+X,X 

150 NEXT X,A 

151 FÜRI= 1TÜ5000: NEXT 

156 SCNCLR 

157 CÜLÜR 0,0,7,7 

160 CIRCLE 3, 500,500 ,D,D 
170 IF D=400 THEN GOTO 220 
180 D=D+20 
190 GOTO160 

220 FÜR 1= 1 TO 2000:NEXT 
230 COLOR 1,3,6,6: GRAPHIC 4 
240 PRINT "NEUES BILD ??" 

250 GET ZZ^ 

260 IF ZZ^= "N" THEN PRINT: GOTO 295 
270 IFZZ^ <> "J" THEN 250 
290 GOTÜO 

295 PRINT "(CLR/HÜME)" 

300 PRINT FRE (O) : PRINT " BYTES FREI" 

In dem nächsten Programm wird ein gegebener Kreis gezeichnet, wie 
Sie aus Zeile 70 ersehen koennen. In Zeile 20 ist eine Abfrage, 
die Sie nur mit "K" oder "H" beantworten können. Solange Sie 
keine Eingabe gemacht haben, bleibt der Rechner in Zeile 30 
stehen- In den Zeilen 40 und 50 ersehen Sie dann, in welche 
Zeilen der Rechner springt. Nachdem der Programmablauf beendet 
ist, werden Sie in Zeile 160 gefragt, ob Sie einen neuen 
Durchmesser wünschen. Antworten Sie mit nein, springt der 
Computer direkt an das Ende des Programms, dieses können Sie der 
Zeile IBO entnehmen. Antworten Sie positiv, können Sie einen 
neuen Radius wählen, der mit der Variable "D" definiert wird. 
Dieses "D" taucht in den Zeilen 290 und 340 wieder auf. Als 
nächstes können Sie eine neue Farbe wählen. Sie ist hier mit der 
Variablen "F" definiert. Dieses "F" finden Sie in den Zeilen 300 
und 350 wieder. Der Computer zeichnet dann, je nach Ihrer 
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Eingabe, den angegebenen Kreis, -füllt diesen oder den Hintergrund 
aus. Danach wird der Rechner angewiesen, in eine Warteschi ei-fe zu 
gehen und erneut nach einem neuen Durchmesser zu -fragen. Sie 
können die Position des Kreises dadurch ändern, indem Sie eine 
neue Ab-frage hinzufügen und sie mit der Variablen "P" 
kennzeichnen. Dieses "P" müßte dann in den Zeilen 290 , 340 und 
360 durch den angegebenen Wert 500 ersetzt werden. 


10 PRINT "(CLR/HÜME)" 

20 PRINT "SÜLL DER KREIS ODER DER HINTERGRUND 
AUSGEFÜLLT WERDEN (K/H)" 

30 GET ZZ$ 

40 IF ZZ$="K" THEN PRINT: GOTO 100 

50 IF ZZ$<>"H" GÜTÜ30 

60 GRAPHIC 2: CÜLÜR 0,0,5,7 

70 CIRCLE 2,500,500,200,200 

80 REGION 2 

90 PAINT 2,0,0 

95 GOTO 140 

100 GRAPHIC 2: CÜLÜR 0,0,5,7 

110 CIRCLE 2,500,500,200,200 

120 REGION 2 

130 PAINT 2,500,500 

140 F0RI= 1T03000:NEXT 

150 GRAPHIC 4 : COLOR 1,3,6,6 

155 SCNCLR 

160 PRINT "NEUER DURCHMESSER (J/N)??" 

170 GET ZZ^ 

100 IF ZZ^="N" THEN PRINT:GOTO 500 
190 IF ZZ$<>"J" THEN 170 
200 PRINT "(CLR/HÜME)" 

210 PRINT "WIE GROSS (10-450)?" 

220 INPUT D 

221 PRINT "NEUE FARBE (1-159)?" 

222 INPUT F 

230 PRINT"SOLL DER KREIS ODER DER HINTERGRUND 
AUSGEFÜLLT WERDEN (K/H)?" 
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240 GET ZZ^ 

260 IF ZZ$="K" THEN PRINT: GOTO 330 

270 IF ZZ$<>"H" GOTO 240 

280 GRAPHIC 2 :COLOR 0,0,5,7 

290 CIRCLE 2,500,500,0,0 

300 REGION F 

310 PAINT 1,500,1023 

320 GOTO 370 

330 GRAPHIC 2: COLOR 0,0,5,7 

340 CIRCLE 2,500,500,0,0 

350 REGION F 

360 PAINT 2,500,500 

370 FOR 1= 1T03000 :NEXT 

380 GOTO 150 

500 ENO 


Als nächstes folgt ein Programm, das nach Eingabe der Variablen 
"A", die für den Abstand steht, eine Aneinanderreihung von 
mehreren Kreisen, die in sich selber eine geschlossene Ellipse 
darstellen. Oie Pokes in den Zeilen 1,2 und 8 verkleinern den 
Bildschirm auf den maximal benötigten Platz, um die Fragen 
in den Zeilen 6+9 darzustellen. 

Oie Anweisung in der Zeile 120 veranlaßt den Computer, die 
Umrandung der Oarstel1ungsf1äche zu zeichnen. Nachdem dieses 
geschehen ist, wird er in den Zeilen 140 und 150 angewiesen, die 
Kreise zu berechnen, wobei hier wieder die Variable "A" 
auftaucht, die den Abstand der Kreise angibt, dann wird der 
Kreis, der mit der Variablen "X", die ja vorher in der Zeile 50 
ausgerechnet wurde und unserer bereits am Anfang eingegebener 
Variable "O" besteht. Sobalt die Funktion "ARC" 6.3 ergibt, geht 
der Rechner zum Anfang des Programmes zurück- Ist dies nicht der 
Fall, wird er in der Zeile 170 angewiesen, einen neuen Kreis zu 
zeichnen, so lange, bis der Wert 6.3 erreicht ist- 
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1 

3 

4 

5 

6 

7 

G 

9 

10 

30 

120 

140 

150 

160 

165 

170 

175 

180 

190 


POKE 36883,10 
POKE 36881,25 
PRINT "(CLR/HOME)" 

PRINT "WELCHER ABSTAND (.10-.90)??" 

INPUT A 

PRINT "(CLR/HÜME)" 

POKE 36883,10: POKE 36881,120 

PRINT "WELCHEN URCHMESSER (10-250)??" 

INPUT D 

GRAPHIC 2: COLÜR 0,0,13,7 

DRAW 2,0,OTOO,1023Ta1023,1023T01023,OTÜO,O 

FÜR ARC = ü Tü 2-0 * 3-14 STEP A 

X=512 +200* COS (ARC) :Y=512+200 * SIN (ARC) 

CIRCLE 2,X,Y,D,D 

IF ARC= 6-3 THEN 175 

NEXT ARC 

FaRT=l TO 4000: NEXT 
GRAPHIC 4 : CÜLÜR 1,3,6,6 
GüTül 
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4.) Der VC-20 Sound 


4.1 Grundlagen 

Wenn Sie die Übersicht über die Register des Video-Chip 
aufmerksam studiert haben, so konnten Sie feststellen, daß fünf 
Register dieses elektronischen Bausteins für die Tonerzeugung 
zuständig sind. Der Name "Video-Chip" ist für dieses kleine 
technische Wunderwerk also etwas untertrieben. 

Die fünf Soundregister des Video-Chip sind die Register a bis e, 
d. h. die Register 10 bis 14. Wie Sie bereits wissen, liegt die 
Startadresse des Videochip bei 36864. Daraus ergibt sich, daß die 
Speicherplätze für die fünf Soundregister die Speicherstellen 
36864+10=36874 bis 36878 sind. 

Wie sind nun die Aufgaben unter diesen fünf Registern verteilt? 
Die ersten drei Register sind normale Tongeneratoren. Sie können 
Töne über fünf Oktaven erzeugen. Das vierte Register ist der 
Rauschgenerator. Es dient zur Erzeugung von Geräuschen und 
Geräuscheffekten. Das fünfte Register schließlich kontrolliert 
die Lautstärke . 

Um einen Ton oder ein Geräusch zu erzeugen, müssen Sie immer zwei 
Dinge tun: Einmal die Lautstärke setzen und zum zweiten einen der 
ersten vier Register mit einem Wert größer als 127 belegen. Warum 
größer als 1277 Um dies zu verstehen, müssen wir uns noch einmal 
den Plan der Video-Chip-Register ansehen. Betrachten Sie das 
höchstwertigste Bit der ersten vier Soundregister. Sie sehen, daß 
dort S1 bis S4 steht. Dies bedeutet, daß das Video-Chip so 
konstruiert ist, daß ein Ton erst erklingt, wenn dieses oberste 
Bit gesetzt ist. Dies hat den Vorteil, daß ein Tonkanal 
abgeschaltet werden kann, ohne daß der gespielte Ton verloren 
geht. Probieren Sie einmal folgendes: 
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P0KE3<S874,195 
PÜKE36878,15 


Nachdem Sie dies eingetippt haben laufen lassen, erklingt ein 
mittelhohes C. Tippen Sie nun das Folgende ein: 

P8KE36874,PEEK(36874)-128 

Augenblicklich verstummt der Ton. Das eben eingetippte C ist aber 
nicht verloren gegangen. Durch die Subtraktion von 128 haben Sie 
lediglich das oberste Bit des Registers auf Null gesetzt, da 
dieses ja die Wertigkeit 128 besitzt. Addieren wir nun wieder die 
128. Tippen Sie Folgendes ein. 

P0PvE36874 , PEEK (36874) +128 

Sie hören nun wieder Ihr C. Ein etwas eleganterer Weg den Kanal 
verstummen zu lassen ist, anstatt der Subtraktion die "und" -• 
Verknüpfung zu benutzen. Diese Operation gewährleistet auch, daß 
Sie keine negativen Werte bekommen, sollte das Register zufällig 
keinen Wert größer als 127 haben und damit bekommen Sie auch auf 
keinen Fall eine Fehlermeldung. Der sichere Befehl zum 
Verstummenlassen eines Registers lautet also: 

P0KE36874,PEEK(36874)AND127 

Nun ist wieder alles ruhig. Wenn Sie Ihr C wieder hören wollen, 
benutzen wir nun die "oder" - Verknüpfung. Diese Operation ist 
wieder nicht nur eleganter, sie gewährleistet auch, daß Sine 
Werte größer als 255 bekommen, die dann ja wieder eine Fehler¬ 
meldung verursachen würden. Tippen Sie ein: 
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P0KE36874,PEEK(36874)OR128 


Ihr C ist wieder da. Dies können Sie mit jedem der ersten vier 
Register machen. 

Das fünfte Register ist, wie bereits erwähnt, das 
Kontrol1register für die Lautstärke- Für die Lautstärke sind die 
vier unteren Bits dieses Registers zuständig. Dies bedeutet, daß 
Sie Werte zwischen 0 und 15 in die Speicherstelle 36878 schreiben 
können, um die Lautstärke zu regeln. Der Wert O bedeutet, daß die 
Lautstärke 0 ist,d.h. Sie hören nichts. 15 ist demnach die 
größte Laustärke. 

Wir verzichten hier darauf. Ihnen eine Tabelle der Noten mit den 
dazugehörigen Werten für die einzelnen Speicherstellen zu geben. 
Eine solche Tabelle finden Sie in Ihrem VC-20 Handbuch. 
Stattdessen geben wir Ihnen im nächsten HCapitel ein Programm an 
die Hand, mit dessen Hilfe Sie sehr komfortabel Töne, Geräusche 
und Toneffekte erzeugen können, den Soundeditor. Weiter wollen 
wir Ihnen zeigen, wie Sie die Tastatur Ihres VC—20 in die eines 
kleinen Synthsizers verwandeln können und schließlich liefern wir 
Ihnen noch ein paar Anregungen, wie Sie ein Schlagzeug program¬ 
mieren können. 
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4.2 Der Soundeditor 


Wenn Sie schon einmal ein Spiel programmiert haben, haben Sie 
sicher auch schon vor dem Problem gestanden, daß Sie ein 
bestimmtes Geräusch erzeugen Mollten. Sie haben dann sicher sehr 
lange die verschiedensten Werte eingetippt und ausprobiert- Der 
Soundeditor macht nun die Erzeugung von Tönen und 
Geräuscheffekten um vieles einfacher. 

Folgende Funktionen hat der Soundeditor: 

Wenn Sie das Programm starten, sehen Sie sechs Reihen auf dem 
Bildschirm. Die ersten vier Reihen entsprechen den ersten vier 
Soundregistern des Video-Chip. Die Reihen 5 und 6 haben eine 
besondere Funktion. Geräuscheffekte haben die Eigenschaft, einen 
längeren Zeitraum zu beanspruchen- Innerhalb dieses Zeitraums 
erreichen die Geräusche Ihre maximale Lautstärke und verklingen 
dann wieder. Dieser Zeitraum kann sehr kurz sein, z-B- das 
Geräusch der Rotorblätter eines Hubschraubers oder auch sehr 
lang, z.b. das Martinshorn eines Feuerwehrwagens- Die Reihen mit 
den Namen "Ansteigen" bzw. "Abfallen" gestatten Ihnen nun genau 
diese Effekte zu programmieren. 

Und so arbeiten Sie mit dem Soundeditor: 

Wählen Sie zuerst mit Hilfe der Cursortasten hoch und runter die 
gewünschte Reihe an. Die ausgewählte Reihe erscheint nun in 
inverser Darstellung. Wenn Sie nun den Wert dieser Reihe erhöhen 
wollen, so benutzen Sie die Funktionstaste Fl. Zu dem Wert dieser 
Reihe wird eins addiert. Wollen Sie den Wert um eine größere Zahl 
ändern, benutzen Sie die Funktionstaste F2 (SHIFT-Fl) - Zu dem 
Wert dieser Reihe werden nun 10 addiert. Wollen Sie den Wert der 
Reihe erniedrigen, so benutzen Sie die Funktionstaste F3 um den 
Wert um eins zu vermindern und die Taste F4 (SHIFT-F3) um den 
Wert um zehn zu vermindern. Für die ersten 4 Reihen werden keine 
Werte kleiner als 127 oder größer als 255 angenommen, da sie 
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nicht sinnvoll bzw. nicht erlaubt sind. Die beiden letzten Reihen 
dürfen Werte zwischen 1 und 999 annehmen. Wenn Sie die RETURN- 
Taste drücken, erklingt der Ton, der sich aus sämtlichen auf dem 
Bildschirm sichtbaren Werten ergibt. 

Auf der nächsten Seite finden Sie das Listing zu dem Soundeditor. 
Hier noch ein paar Erläuterungen zu einzelnen Programmzeilen: 
Zeile 10-60 Anfangswerte, Ober— und Untergrenzen und die Repeat— 
funktion für alle Tasten werden gesetzt (Zeile 18). 
Zeile 70 Abfrage ob Taste gedrückt 
Zeile 75-76 Abfrage ob Cursortaste gedrückt 
Zeile 80-92 Bewegung durch Cursortasten 
Zeile 93-96 Abfrage der Funktionstasten 
Zeile 100 Abfrage der RETURN-Taste 
Zeile 110—142 Änderung der Werte und Ausdruck 
Zeile 2000-2040 Spielen des Tons 

Haben Sie nun Ihren gewünschten Toneffekt gefunden, so müssen Sie 
sich nur noch die Werte der 6 Zeilen vom Bildschirm abschreiben 
und in Ihrem Programm eine Schleife wie in den Zeile 2000-2040 
einbauen. In Zeile 2000 werden die Werte der ersten vier Reihen 
in die entsprechenden Speicherstellen geschrieben. Die restlichen 
Zeilen sind für das Ansteigen und Abfallen des Tones 
verantwortlich. 

Sie sehen also, die Erzeugung eines Effektes ist um vieles 
einfacher geworden. Auf den nächsten beiden Seiten finden Sie nun 
das Listing des Programms. Wir wünschen Ihnen viel Spaß bei der 
Entdeckungsreise durch die verschiedensten Toneffekte. 
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5 REM **** SOUNDEDITOR **** 

10 V=36878:S<0)=36874:S<1)=36875:S<2)=36876:S<3)=36877 

16 FORI=0TO3:0< I)=255:NEXTI:0( 4)=998:0< 5)=999 

17 FOR I =0TO3 : U< I) = 127 : NEXTI : U( 4) = 1 : U( 5) = 1 

18 POKE650,128 

20 PRINTCHR*< 147) 

30 FORI=0TO5 
40 REROR*( I) 

50 U':i) = 127 

55 PRINTR*< I);UK I):PRIMT 

56 NEXTI 

57 Z=0 

60 PRINTCHR« 19) :PRINTCHR*< 18 ) ; Z ) ; UK Z ) ; CHR*< 146) 

70 GETR*:IFR*=""THEN70 

75 IFR*=CHR*< 17)RNDZ<5THEN80 

76 IFR*=CHR*C 145)RNDZ>0THEN90 

77 G0T093 

80 PR INTCHR**: 145); Z ) ; U< Z ) : PR I NT 

81 Z=Z + 1 

82 PRINTCHR« 1 8 ) ; Z ) ; UK Z ) ; CHR*( 146) 

85 G0T0999 

90 PRINTCHR« 145);R*< Z );U( Z ); 

91 FORI = 1T03:PR INTCHR*< 145);:NEXTI:PR INT 

92 Z =Z - 1 : PR INTCHR*< 18); Z ) ; UK Z ) ; CHR*< 146 ) : G0T0999 

93 IFR*=CHR*< 133)RNDU( Z)< 0( Z)THEN110 

94 IFR*=CHR*< 134)RN0UK Z) >U( Z )THEN120 

95 IFR*=CHR*( 137)RN0U< Z )<0< Z )-10THEN130 

96 IFR*=CHR*< 138)RN0UK Z) >U< Z ) + 10THEN140 
100 IFRSC< R*) = 13THENGOSUB2000:GOTO999 
105 G0T0999 

110 U( Z )=iAj< Z ) + 1 

111 printchr*( 145);chr*< 18 ); z );U( z );chr*< 146) 

1 12 G0T0999 
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120 U( Z ) =W< Z ) - 1 

121 PRINTCHR*< 145);CHR*< 1 8 ) ; Z ) ; U( Z ) ; CHR*< 146);CHR*< 157)" " 

122 G0T0999 

130 U< Z)=U< Z) + 10 

131 PRINTCHR*< 145);CHR*< 18 ) ; Z ) ; U< Z ) ; CHR*< 146) 

132 G0T0999 

140 U<Z)=U<Z)-10 

141 PRINTCHR*< 145);CHR*< 1 8 ) ; Z ) ; U< Z ) ; CHR*< 146);CHR*< 157) " " 

142 GGT0999 

999 GOTG70 

1000 GftTA "KRNAL 1 " , "KftNRL 2 ","KftNFlL 3 ", "RAUSCHEN 

1010 GATA"ANSTEIGEN ", "ABFALLEN 

2000 FGRI=0TG3:PGKE36874+I,U< I):NEXTI 
2005 FGRI=0TG15STEP15/UX 4) 

2010 PGKEV,I:NEXTI 

2020 FGRI=15TG0STEP-15/W<5) 

2030 PGKEV,I:NEXTI 
2040 RETURN 

REAOY. 
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4.3 Der VC-20 als Synthesizer 


Das folgende Programm gestattet es Ihnen, Ihren VC-20 als 
Synthesizer einzusetzen. Die Buchstabenreihe von Q bis fungiert 
als die weißen Reihen der Tastatur. Die schwarzen Tasten werden 
von der Zahlenreihe repräsentiert. Da nicht über jeder weißen 
eine schwarze Taste liegt, sind natürlich auch nicht alle Zahlen— 
tasten belegt. Betätigen Sie eine Taste aus diesen beiden Reihen, 
ertönt sofort der zugehörige Ton. Das Q entspricht dabei dem Ton 
C, das W dem Ton D u.s.w. 

Dies alles ist nun zugegebenermaßen nicht sehr neu. Doch der Clou 
dieses Programms kommt ja noch. 

Starten Sie das Programm. Sie sehen als erstes eine Abfrage, ob 
Sie in den Spiel- oder Programmiermodus möchten. Tippen Sie "S" 
für Spielmodus ein. Sie können nun die beiden obersten Reihen als 
Klaviertasten verwenden wie oben beschrieben. Verlassen Sie 
diesen Modus, indem Sie die Pfeiltaste links oben auf der 
Tastatur betätigen. Mählen Sie nun "P" für Programmiermodus. Sie 
sehen nun zwei Zeilen auf dem Bildschirm. Diese beiden Zeilen 
entsprechen den letzten beiden Zeilen des Soundeditors aus dem 
letzten Kapitel. Sie können hier nun den Verlauf des Tones 
genauso wie im Soundeditor bestimmen. Sind Sie mit dem Verlauf 
zufrieden, verlassen Sie den Programmiermodus wieder mit der 
Pfeiltaste links oben und gehen Sie wieder in den Spielmodus. 
Menn Sie nun spielen, klingt dieser so, wie Sie es eben 
programmiert haben. Sie haben also einen kleinen aber feinen 
Synthesizer aus Ihrem VC-20 gemacht. 

Schnell noch ein paar Erklärungen zu den Programmzeilen, bevor 
Sie sich ans Tippen stürzen: 

Zeile 10-41 Die Anfangsvariablen werden gesetzt. In W1(I) und 
UJ2 (I) werden die Zahlenwerte für die Töne, in T(I) 
die dazugehörigen Tastaturcodes gespeichert. 
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Zeile 45—50 Abfrage ob Spiel- oder Programmiermodus 

Zeile 51-60 Initialisierung Programmiermodus 

Zeile 70 Abfrage Taste gedrückt 

Zeile 75—76 Abfrage Cursortaste 

Zeile 80-92 Ausführen der Cursortasten 

Zeile 93-96 Abfrage der Funktionstasten 

Zeile 100 Abfrage der RETURN-Taste 

Zeile 101 Abfrage der Pfeiltaste 

Zeile 110—141 Ausführen der Funktionstasten und Ausdruck der 
neuen Werte 

Zeile 1000-1048 Werte für die Töne 

Zeile 1050-1065 Werte für die Tastaturabfrage 

Zeile 2000—2040 Spielen eines Tones 

Zeile 3000 Initialisierung Spielmodus 

Zeile 3010 Abfrage Taste gedrückt 

Zeile 3015 wenn Pfeil links dann Spielmodus verlassen 

Zeile 3020 Suchen der gedrückten Taste 

Zeile 3030 nicht gefunden dann zurück zu Abfrage Taste 

gedrückt 

Zeile 3040 Zuweisung der Variablen für Unterprogramm 

Zeile 3050 Ton spielen , dann zurück zu Abfrage Taste 

gedrückt 

Auf der nächsten Seite finden Sie nun das Listing zum 
Synthesizer. Auch wenn Sie drei Seiten Programm eintippen müssen, 
es ist die Mühe wert. 
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5 REM **** SYNTHESIZER ***** 

10 V=36878:S<0)=36874:S< 1 )=36875:S<2)=36875 

15 DIMdK 23) ,U2< 23) ,TC 23) 

16 □< 4 ) =338: □< 5 ) =888 : UC 4 ) = 1 : U< 5 ) = 1 

3 0 F0RI=4T05:RERDR*< I ) : UK I ) = 127 : NEXT: Z =4 

40 F0RI = 1T023:RERDUK I ) : RERDUJ2< I):NEXTI 

41 F0RI=1T023:RERDT<I):NEXTI 

45 PRINTCHRSC 147):PRINT"SPIEL- ODER" 

46 PRINT"PROGRRMMIERMODUS" 

47 PRINT"<S/P)" 

48 GETRS:IFR*=""THEN48 
48 IFR*="S"THEN3000 

50 IFR*<>"P"THEN48 

55 PRINTCHR^ 147):F0RI=4T05 

56 PRINTR*< I );UK I ) :PRINT 

57 NEXTI 

60 PRINTCHR*< 18) :PRINTCHR*< 18 ) ; Z ) ; UK Z ) ; CHR*< 146) 

70 GETR*:IFR*=""THEN70 

75 IFR«=CHR« 17)RMDZ<5THEN80 

76 IFR*=CHR«< 145)RNDZ>3THEN80 

77 GÜTG83 

80 PR I NTCHR*< 145); R*< Z ) ; U< Z ) 

81 PRINT 

82 Z=Z + 1 

83 PRINTCHRSC 18 ) ; R«< Z ) ; UK Z ) ; CHR*< 146) 

84 G0TG889 

80 PRINTCHR« 145);R*< Z );UK Z ); 

81 FGRI=1TG3:PRINTCHR*< 145);:NEXTI:PRINT 

82 Z=Z-1 :PRINTCHRS< 18 ) ; R*< Z ) ; UK Z ) ; CHR*< 146):GGTG999 

93 IFR*=CHR*< 133)RMDUK Z )<G< Z )THEN1 10 

94 IFR*=CHR^ 134 )RNDUK Z ) >U< Z )THEN120 

95 IFR*=CHR«< 137)RMDUK Z )<G< Z )-10THEN130 

96 IFR*=CHR»: 138)RNGUK Z) >U< Z) + 10THEN140 

100 IFRSCC R«) = 13THENGGSUB2000:GGTG999 

101 IFRSC<R«)=95THEN45 
105 GGTG999 

110 UKZ)=UC Z) + l 

111 PRINTCHR«< 145);CHR*< 18 ) ; R»; Z ) ; UK Z ) ; CHR*< 146) 

1 12 GGTG999 

120 W< Z)=UK Z )-l 

121 PRINTCHR*< 145);CHR*< 1 8 ) ; R*< Z ) ; U< Z ) ; CHR*< 146);CHR»: 157)" 

122 GGTG999 


82 



130 W(Z)=UJ<Z) + 10 

131 PRINTCHRSC 145);CHRS( 18 ) ; Z ) ; U( Z ) ; CHRS( 14B) 

133 G0T0999 

140 U(Z)=U<Z)-10 

141 PRINTCHR$< 145);CHR$< 1 8 ) ; Z ) ; WC Z ) ; CHR$< 14B);CHR*< 157)” 

143 G0TÜ999 

999 GOTO70 


1000 

DATA 

"ANSTEIGEN " , " ABFALLEN 

1030 

DATA 

193,195,197,197 

1035 

DATA 

300,300,303,303 

1030 

DATA 

30B,307,308,309 

1035 

DATA 

31 1 ,313,314,314 

103B 

DATA 

31B,31B,318,319,330,331 

1040 

DATA 

333,333,334,334 

1045 

DATA 

33B,33B,337,337 

104B 

DATA 

339,339,331,331,333,333 

1047 

DATA 

333,333,334,334 

1048 

DATA 

33B,338,337,337,338,338 

1050 

DATA 

81 ,50,87,51 

1055 

DATA 

B9,83,53,84 

105B 

DATA 

54,89,55,85,73,57 

10B0 

DATA 

79,48,80,B4 

10B5 

DATA 

45,43,93,94,19 

3000 

FDRI 

= 0TD3:PDKE3B874+I ,UI< I):NEXTI 

3005 

FDRI 

=0TD15STEP15/UI< 4) 


3010 PGKEV,I:NEXTI 

3030 FORI = 15TO0STEP-15/UI< 5) 

3030 POKEV,I:NEXTI 
3040 RETURN 

3000 PRINTCHR*< 147):PR INT"SPIELMODUS" 
3010 GETA*:IFA$=""THEN3010 
3015 IFASCCA$)=95THEN45 

3030 F0RI=1T033:IFASC<A$)=T< I)THEN3040 
3030 NEXTI:GOTO3010 

3040 UJC 1 ) = W1 ( I ) : WC 3 ) =UJ3< I ) : Ul< 3 ) =0 : UK 0 ) =0 
3050 GOSUB3000:GOTO3010 

READY. 
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4.4 Schlagzeug auf dem VC-20 


Ein besonders faszinierendes Gebiet der Geräuscherzeugung ist die 
Imitierung eines Schlagzeuges. Auch wenn Ihre Anverwandten Ihre 
Versuche in dieser Richtung vielleicht als störend empfinden 

könnten, sollte Sie das nicht abschrecken. Leider geht es aber 
auch hier nicht ohne ein bißchen Theorie. 

Bevor Sie sich an die Programmierung eines Schlagzeuges geben, 
müssen Sie sich zuerst einmal die verschiedenen möglichen 

Klangkörper eines Schlagzeuges vor Augen führen und herausfinden, 
wie Sie diese erzeugen. Hier hilft nur langes Probieren (und die 
kleinen Beispiele als Hilfe am Ende dieses Kapitels). Eine nütz¬ 
liche Hilfe wird Ihnen dabei sicher der Soundeditor sein. Wenn 
Sie den Klang Ihrer Trommeln herausgefunden haben, können Sie an 
die eigentliche Programmierung gehen. Sie überlegen sich die 
Taktart, wo die Betonungen liegen und legen entsprechend Ihre 

Instrumente. Wir können hier und jetzt leider keinen kompletten 

Kursus über Rhythmik und verschiedene Taktarten abhalten. Wenden 
Sie sich dazu bitte an einen Schlagzeuger oder die einschlägige 
Fachliteratur. Wir wollen Ihnen nur ein Beispiel geben, wie Sie 
einen 3/4 Takt erzeugen können. Die Auswahl der Trommeln ist 
relativ willkürlich und Sie müssen Sie Ihrem eigenen Geschmack 
anpassen. 

Das folgende Programm erzeugt also einen Walzertakt. In Zeile 10 
werden die Variablen für die Register gesetzt, in Zeile 20 die 
Lautstärke auf maximales Volumen gesetzt. In Zeile 1000 wird das 
erste Instrument gespielt. Der erzeugte Ton ist relativ tief 
(Baßtrommel) und betont den ersten Taktschlag sehr gut. In Zeile 
1005 wird eine Warteschleife aufgerufen, die die Geschwindigkeit 
des Rhythmus bestimmt. Nun folgen zwei weniger betonte Takt— 
Schläge (Snare). Dies geschieht in den Zeilen 1010 bis 1060. 
Zeile 1998 bewirkt, daß der nächste Takt begonnen wird. Sie 
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sehen, daf3 es gar nicht allzu schwer ist, einen Rhythmus zu 
programmieren. 


Hier nun das Listing: 

10 0=36878:S(0)=36874:8(1)=36875:8(2)=36876:8(3)=36877 
20 P8KEV,15 

1000 P8KE8(0),128 

1001 P8KE8(1),139 

1002 P8KE8(1),0 

1003 P8KE8(0),0 

1005 G88UB2000:REM WARTE8CHLEIFE 

1010 F8RI=1TÜ2 

1020 P8KE8(2),222 

1030 P8KE8(3),244 

1040 P8KE8(2),0 

1050 P8KE8(3),0 

1055 G88UB2000:REM WARTE5CHLEIFE 

1060 NEXTI 

1998 GGTOIOOO 

2000 FÜRW=1TÜ500:NEXTW 

2010 RETURN 

Aut der folgenden Beite finden 8ie nun noch ein paar Beispiele 
für verschiedene Klänge eines Bchlagzeuges. 

Wir vereinbaren folgende Werte für die Variablen: 


8(1)=36874:8(2)=36875:8(3)=36876:8(4)=36877: V=36878 
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Zuerst noch einmal die Werte aus unserem Walzer—Rhythmus; 


POKEV,15 
POKESd) , 128 
PaKES(2),138 
POKESd) ,0 
P0KES(2),0 

Der hieraus resultierende Ton ist der einer Basstrommel und gut 
■für Betonungen geeignet. 

Der zweite Ton, der einer Snare, ist -folgender: 


POKEV,15 
POKESd) ,221 
P0KES(2),244 
POKESd) ,0 
P0KES(2),0 

S—Tom und H—Tom lassen sich mit den folgenden zwei Kombinatioen 
imitieren: 


L-Tom 
POKEV,15 
P0KES(3),165 
P0KES(3),166 
P0KES(3),167 
P0KES(3),0 


H-Tom 
POKEV,15 
P0KES(3),194 
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PaKES(3),195 
PaKES(3),193 
PaKES(3),0 


Das Hi—Hat Mird so erzeugt: 

PaKEV,15 
POKEV,12 
PaKES(4),254 
POKEV,6 
P0KES(4),254 
P0KES(4),0 

Das Stackschlagen des Schlagzeugers schließlich können Sie so 
imitieren: 

POKEV,12 
P0KES(3),245' 

P0KES(3),244 
P0KES(3),245 
P0KES(3),0 

Sie haben nun die nichtigsten Instrumente eines Schlagzeugers zur 
Hand. Der Karriere Ihres VC-20 als Rhythmusmaschine steht 
eigentlich nichts mehr im Mege. 
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KAPITEL 5 : POKES UND ANDERE NÜTZLICHE ROUTINEN 


In diesem Kapitel werden Sie eine ganze Menge nützliche Routinen 
kennenlernen, die Sie in Ihren Programmen verwenden können, um 
diese schneller und eleganter zu machen. Es emp-fiehlt sich in 
diesem Zusammenhang, sich außerdem noch mit dem Betriebssystem 
des VC-20 zu beschäftigen. Sie werden nicht nur einige 
trickreiche POKES finden, sondern auch Informationen über 
verschiedene PEEKS und SYS. Die meisten Routinen lassen sich 
sowohl von BASIC als auch von Maschinenprogrammen aufrufen. Es 
ist leicht verständlich, daß durch solche Routinen Ihre Programme 
bedeutend schneller und kürzer werden. 

Zunächst aber erst etwas über die verschiedenen Befehle zum 
Aufruf der Routinen. 

Von BASIC aus: 


NEU 

Ein Befehl, der unter Umständen fatale Folgen haben kann. 
Trotzdem sollte auch seine Wirkungsweise hier besprochen werden. 
Wenn Sie ein Maschinenprogramm geladen haben, sollten Sie danach 
jedesmal den NEW—Befehl anwenden. Er setzt die wichtigen Register 
in der Zero-Page auf ihren Urzustand zurück. So können Sie auch 
zusätzlich noch ein BASIC Programm eingeben, ohne schon nach der 
ersten Eingabe eine eigenartige Fehlermeldung zu bekommen. 
Natürlich gehen bei diesem Befehl alle BASIC Programme, die zu 
diesem Zeitpunkt im Speicher stehen verloren — MASCHINENPROGRAMME 
ABER NICHT ! 


PEEK 

Eine sehr interessante Funktion ist die PEEK—Funktion. Mit dieser 
Funktion können Sie alle Speicherstellen auslesen. Verändert wird 
hierbei überhaupt nichts. Sie sollten aber darauf achten, daß die 
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Resultate dieser Funktion in dezimaler Form ausgegeben werden. Um 
nun diese Resulate genau zu verstehen, kann es manchmal nützlich 
sein, sie in hexadezimale Form zu übersetzen. überhaupt spielt 
diese Form der Zahlendarstellung in diesem Bereich der 
Programmierung eine große Rolle. Ein Beispiel der PEEK-Anwendung 
soll dieses verdeutlichen: 

Um den Anfang des BASIC-Bereiches zu bekommen, also den BASIC- 
Programmstart, können Sie folgende Eingabe machen: 

PRINT PEEK (43) + 256 * PEEK (44) 

Das Resultat lautet zum Beispiel bei einem ohne 
Speichererweiterung ausgerüstetem VC-20 4097, bei einem Gerät mit 
der 3K Supererweiterung 1025 und bei einer BK oder 16K 
Erweiterung 4609. 

Nun noch etwas zu der Darstellung der Rechnung. PEEK (43) ist das 
untere Byte der 2 Byte Adresse und PEEK (44) das obere Byte. Wir 
sprechen in diesem Zusammenhang auch von Low- und Highbyte. Um 
das richtige Resultat zu erlangen, müssen wir das Highbyte noch 
mit 256 multiplizieren, und dann noch das Lowbyte addieren. 
Entsprechend lassen sich auch alle anderen Adressen berechnen, 
der BASIC-Programmstart soll hier nur als Beispiel diesen. 

Weitere interesannte Adressen der Zeropage sind noch: 








Adressen 

Zeiger 

auf 

den 

Start 

der 

Variablen 

(45, 

46) 

Zeiger 

auf 

den 

Start 

der 

Arrays (Felder) 

(47, 40) 

Zeiger 

auf 

das 

Ende 

der 

Arrays 

(49, 50) 

Zeiger 

auf 

den 

Start 

der 

Strings (Texte) 

(51 , 

52) 

Zeiger 

auf 

das 

Ende 

des 

BASIC-RAM 

(55, 56) 


Zu der Benutzung dieser Adressen kommen wir später noch. 
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POKE 


Durch den POKE-Befehl Merden die einzelnen Speicherstellen mit 
dem angegebenen Wert überschrieben. Auch hier ist darauf zu 
achten, daß die Wert in dezimaler Form eingegeben werden. 
Außerdem dürfen sie nur im Bereich von 0 bis 255 liegen. Andere 
Werte würden zu einem ILLIGAL QUANTITY ERROR führen. Doch passen 
Sie bei der Benutzung des POKE-Befehls besonders auf: Sie können 
sich damit Ihre ganzen Programme zerstören, oder das Gerät ganz 
zum "Absturz" bringen. Vor allen Dingen BASIC-Programme sind bei 
der Benutzung sehr gefährdet. überlegen Sie sich also genau, in 
welches Bienennest Sie "hineinpoken". 


SYS 

Dieser Befehl ruft ein Maschinenprogramm oder eine 
Maschinenroutine auf. Interessant sind in diesem Zusammenhang die 
möglichenen Anwendungen des SYS-Befehls. So können Sie nicht nur 
Programme, durch Angabe der Startadresse starten, sondern auch 
noch Werte an das Maschinenprogramm übergeben. Denken wir zum 
Beispiel an ein Graphikprogramm, so könnte man sich vorstellen, 
eine Gerade durch Angabe von von Anfangs- und Endkoordiante zu 
zeichnen. Umgesetzt auf den SYS-Befehl könnte das so aussehen: 

SYS 6144,0,100 

Wir gehen hierbei davon aus, daß das Maschinenprogramm, bzw. die 
entsprechende Routine, an der Stelle 6144 (oder hex 1800) 
beginnt, die Startkoordiante 0 und die Endkoordinate 100 ist. Der 
Computer versteht zunächst nur die Startadresse des 
Maschinenprogramms. Die anderen Paramter, in unserem Fall also 0 
und 100, werden in verschiedenen Registern bereit gestellt. Vom 
Programm aus können dann die verschiedenen Werte verarbeitet 
werden. An folgenden Adressen können Sie die Inhalte der Register 
finden: 
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Adresse 


Akku für den SYS-Befehl 780 
X-Register -für den SYS-Befehl 781 
Y-Register für den SYS-Befehl 782 
Status-Register für den SYS-Befehl 783 


Bei unserem obigen Beispiel, würde also an der Stelle 780 der 
Wert 0 und an der Stelle 781 der Wert 100 gespeichert. 

Auch dieser Befehl kann seine Tücken haben. So startet ein 

SYS 64802 

den VC-20 wieder - das Programm ist weg !!! 

USR 

Auch mit dieser Funktion können Sie ein Maschinenprogramm oder 
eine Maschinenroutine aufrufen. Sie müssen dabei aber ein paar 
Sachen berücksichtigen. Es gibt 2 besondere Adressen in der 
Zeropage des VC-20, die die Benutzung von USR steuern. Diese 
beiden Adressen sind die Speicherplätze 1 und 2. Diese beiden 
Stellen arbeiten zusammen mit der Adresse 0. In dieser Adresse 
steht der Wert 76. Er bedeutet JMP (also springe) im Sinne der 
Maschinensprache. Danach folgt die Adresse, zu der gesprungen 
werden soll. Auch hier müssen wir also wieder in Low— und 
Highbyte trennen. Adresse 1 ist das Low— und Adresse 2 das 
Highbyte der Maschinenroutine, an die, bei Aufruf des USR— 
Befehls, verzweigt werden soll. Mit Hilfe des USR—Befehls ist es 
zum Beispiel möglich, eigene mathematische Routinen zu 
entwickeln, und dann den Wert oder die Werte berechenen zu 
lassen. Ein solcher Vorgang könnte zum Beispiel so aussehen: 

10 PÜKE 1,0: REM LSB 
20 PÜKE 2,24: REM MSB 
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30 A=10 
40 B=USR(A) 

50 PRINT "SQR VON ";A;" IST ";B 
60 END 

ACHTUNG: Dieses Programm soll nur die Anwendung der USR-Funktion 

verdeutlichen. Das Programm ist so, wie es hier als reines BASIC- 
Programm steht, nicht lau-f-fähig. Es wird davon ausgegangen, das 
ein Maschinenprogramm, welches die Wurzel einer Zahl berechnet, 
bei der Adresse 6144 (oder hex 1800) beginnt. In die 
Speicherstellen 1 und 2 werden also Low- (0) und Highbyte (24 = 
hex 18) geschrieben. Durch Aufruf der USR-Funktion verzweigt der 
Computer dann in das Maschinenprogramm und übergibt der Variablen 
B den Wert der Wurzel. 


WAIT 

Dies ist der letzte Befehl, auf den wir im Zusammenhang mit dem 
Aufruf von Maschinenprogrammen und Routinen hinweisen wollen. Er 
ist vielleicht nicht ganz so einfach zu verstehen, wie die 
anderen Befehle. Aber trotzdem kann er sehr nützlich sein. 

Mit Hilfe dieses Befehles kann der Zustand einer Speicherstelle 
abgefragt werden. übersetzt würde der Befehl ungefähr bedeuten: 
Warte solange, bis an der Adresse X das Signal Y anliegt. Genauer 
gesagt: WAIT 654,1 wartet solange, bis die SHIFT—Taste gedrückt 
wird. Werden andere Zeichen eingegeben, werden diese zwar in den 
Tastaturpuffer übernommen aber nicht eher angezeigt, wie die 
SHIFT-Taste gedrückt wird. Der Grund dafür ist, daß diese Stelle 
normalerweise den Wert 0 enthält - solange die SHIFT-Taste nicht 
gedrückt ist. Wird diese Taste jedoch gedrückt, dann wird der 
Wert dieser Adresse zu 1, und damit die WAIT Schleife 
abgeschlossen. 


Sie müssen nicht alle Befehle des VC-20 genaustens beherrschen. 
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Es ist oftmals aber sehr nützlich, über Ihren Z^eck informiert zu 
sein, um so zum Beipsiel leichter Programme von anderen Rechnern 
übertragen zu können. Um es noch einmal zu sagen: Seien Sie, 
solange Sie Ihren VC—20 nicht absolut kennen, vorsichtig im 
Umgang mit den oben angesprochenen Befehlen. Es könnte sonst zu 
unangenehmen Überraschungen kommen. 
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5.1 Routinen des Betriebssystems und ihre Anwendung 

Wie Sie oben sicherlich schon bemerkt haben, gibt es verschiedene 
Routinen, die bei der Programmierung, sowohl von BASIC als auch 
von der Maschinensprache sehr nützlich sein können. Wir wollen 
Ihnen hier einen Liste der wichtigsten Routinen geben. Für eine 
umfassende Auflistung aller Routinen, empfehlen wir Ihnen die 
Lektüre des VC-20 RÜM-Listings. 

Hier nun die Adressen: 

Adresse: (mögliche) Anwendung: 

0000-0002 X=PEEK(1)+256*PEEK(2) 

An dieser Stelle finden Sie die Adressen für die Anwendung der 
USR-RDutine. 0000 hat normalerweise den Wert 76, das der Opcode 
für JMP bedeutet. Adresse 0001 ist das Low- und Adresse 0002 das 
Highbyte der zu benutzenden USR-Routine. 

0020-0021 X=PEEK(20)+256*PEEK(21) 

An dieser Stelle steht die Adresse, an der BASIC die Integer— 
Variablen speichert, die in dem BASIC-Programm benutz werden. 

0043-0044 X=PPEK(43)+256*PEEK(44) 

Diese Adresse zeigt auf den Anfang des Benutzerspeichers, also 
auf den Start des BASIC-Programms. Wie Sie diese Adresse 
auswerten können, haben wir Ihnen schon oben ausführlich 
beschrieben. 

0045-0046 X=PPEK (45) -♦-256*PEEK (46) 

In dieser Adresse finden Sie den Start des Speicherplatzes, bei 
dem die numerischen Variablen beginnen. Dieser Adresse liegt für 
gewöhnlich direkt hinter dem BASIC-Programmspeieher. 
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0047-0048 


X=PEEK(47)+256*PEEK(48) 


Hier steht die Anfangsadressse -für den Array-Speicherplatz. Alle 
Felder (Arrays) des BASIC-Programms werden in diesem 

Speicherplatz abgelegt. 

0049-0050 X=PEEK(49)+256*PEEK(50) 

Diese Adresse deutet auf das Ende des Array-Speieherplatzes. 

0051-0052 X=PEEK(51)+256*PEEK(52) 

Bei dieser Adresse beginnen die Strings, also Textvariablen, des 
BASIC-Programmes. 

0055-0056 X=PEEK(55)+256*PEEK(56) 


Zeiger auf das Ende des BASIC-RAMs. Durch Versetzen dieser 
Adresse, ist es möglich, einen bestimmten Speicherbereich vor 
überschreiben zu schützen. Da sich die anderen Adressen an dieser 
Adresse orientieren, können Sie einen ganzen Teil des Speichers 
"sperren". Dieser Teil könnte nun von einem Maschinenprogramm aus 
genutzt werden. Zum Beipiel die mathematische Routine für die 
USR-Funktion in unserem Beispiel. So könnte eine Sperrung 
erfolgen: 


Bei Standard VC-20: Nach POKE 56,20: 


Adresse 55: 

Wert 

0 

Adresse 55: 

Wert 

0 

Adresse 56: 

Wert 

30 

Adresse 56: 

Wert 

20 

FRE (0) : 

3581 


FRE (0) : 

1021 


RAM-Ende : 

7680 


RAM-Ende : 

5120 


0097-0102 



X=PEEK(97>, Y=PEEK(98) 
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Akkumulator 1 für Fließkommazahlen. (FAC) Die Adresse 102 stellt 
das Vorzeichen der entsprechenden Zahl dar. 

0105-0110 X=PEEK(105), Y=PEEK(106) ... 

Akkumualtor 2 Für Fliekommazahlen. (ARG) Die Adresse 110 stellt 
das Vorzeichen der entsprechenden Zahl dar. 

0115-0138 MASCHINENSPRACHE: JSR ^0073 

Eine sehr wichtige Routine. Sie holt das nächste Zeichen aus dem 
BASIC-Text. 

0122-0123 X=PEEK(122)+256*PEEK(123) 

Dieser Zeiger zeigt au-F die aktuelle, zu verarbeitende, Zeile. 

0144 X=PEEK:(144) 

Die Variable ST, also das Statuswort, ist hier gespeichert. Bei 
der Abfrage von ST wird der Wert von dieser Adresse aus gelesen. 

0152 X=PEEK(152) 

Die Anzahl der offenen Dateien ist an dieser Stelle abgelegt. 

0153 X=PEEK(153) 

Die lEC-Adresse für das aktuelle Eingabegerät. Normalerweise 

steht hier 0 - bedeutet Tastatur. 

0154 X=PEEK(154) 

Die lEC-Adresse für das aktuelle Ausgabegerät. Normalerweise 

steht hier 3 - bedeutet Bildschirm. 

0157 X=PEEK(157) 
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Im Direktmodus, also über Tastatur, steht an dieser Stelle der 
Wert 128. Bei Ablauf eines Programmes steht hier eine 0. Es wird 
also signalisiert in welchem Modus sich der Computer gerade 
befindet. 

0160-0162 X=PEEK(160), Y=PEEK(161) ... 

An dieser Stelle werden die Zeitvariablen TI und TI^ abgelegt. 
Bei der BASIC-Abfrage dieser Variablen, holt sich der Computer 
die aktuelle Zeit aus diesen Adressen. 

0174-0175 X=PEEK(174)+256*PEEK(175) 


Diese Adresse zeigt auf das Programmende bei einem LOAD oder SAVE 
Befehl. Um also zum Beispiel die Länge eines Programmes nach dem 
Laden zu berechnen, müssen Sie nur die Differenz zwischen dem 
BASIC-Programmstart (43, 44) und dieser Adresse bilden. 

0183-0186 X=PEEK(183), Y=PEEK(184) ... 

In der ersten Speicherstel1e steht die Länge des Programmnamens, 
welches geladen oder gespeichert werden soll, und in der zweiten 
Adresse, die logische Filenummer. Die dritte Adresse beinhaltet 
dann noch die Sekundäradresse und die letzte die Gerätenummer. 
Diese Adressen sind vor allen Dingen bei der 
Maschinenprogrammierung interessant, um ein Programm, oder Daten, 
zu laden oder zu speichern. 


0187-0188 


X =PEEK(187)+256*PEEK(188) 


Auch diese 
Sie zeigt 
gespeichert 


Adresse gehört zu einem 
nämlich auf die Adresse, 
i st. 


Lade— oder Speichervorgang, 
unter der der Programmname 


0197 


X=PEEK(197) 
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Eine sehr interessante Adresse -für das Einlesen von Zeichen über 


die Tastatur. In dieser Speicherstelle steht solange der Wert 64, 
bis eine Taste gedrückt wird- 

0198 X=PEEK(198) 

In dieser Speicherstelle wird die momentane Länge des 
Tastaturpuf-fers abgespeichert. 

0199 X=PEEK(199) 

Flagge ob RVS-Modus eingeschaltet ist oder nicht. Bei 
eingeschaltetem RVS-Modus ist das Resultat 1, bei ausgeschaltetem 
Modus 0. 

0201-0202 X=PEEK(201), Y=PEEK(202) 

In der Speicherstelle 201 ist die Cursorzeile und in 202 die 

Cursorspalte zwischengespeichert, an welcher die Eingabe er-folgen 
soll. Somit ist also auch auf einfache Art und Weise eine 
Cursorpositionierung möglich. 

0206 X=PEEK(206) 

An diesere Stelle steht der Wert des Zeichens, das sich gerade 
unter dem Cursor befindet. 

0209-0210 X=PEEK(209)+256*PEEK(210) 

Dieser Zeiger weist auf den Start der aktuellen Bildschirmzeile. 

0211 X=PEEK(211) 

In dieser Speicherstelle kann die momentane Position des Cursors 
innerhalb der Zeile ausgelesen werden. 

0213 X=PEEK(213) 
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Diese Adresse enthält die Anzahl der Bildschirmzeilen einer 
Zeile. Wie Sie wissen, kann die Eingabe einer Zeile ja insgesamt 
über maximal 4 Bildschirmzeilen erfolgen. In dieser Adresse 
können also die Werte 21, 43, 65 oder 87 stehen (0-21 ergibt 22 
Zeichen per Zeile). 


0214 X=PEEK(214) 

Diese Adresse ähnelt sehr stark der Adresse 211, mit dem 
Unterschied, daß in dieser Speicherstelle die momentane 
Bildschirmzeilennummer -festegehalten wird. 

Um den Cursor an eine bestimmte Postion zu setzen, müssen also 
insgesamt 4 Adressen, nämlich 201, 210, 211 und 214 verändert 
werden. 

0216 X=PEEK(216) 

Diese Adresse spielt bei der Verwendung des Insert-Modus eine 
große Rolle. Um zu verhindern, daß mehr als die erlaubten 88 
Zeichen eingegeben (einge-fügt) werden, steht in dieser Adresse 
die restliche Anzahl der Zeichen, die noch eingefügt werden 
können. Bei einem POKE 216,0 wird der Insert-Modus ausgeschaltet. 

0217-0240 X=PEEK(217), Y=PEEK(218) ... 

Eine sehr interessante Adresse für die Bearbeitung einer BASIC- 
Zeile (oder auch einer normalen Eingabe) ist der Bereich von 217 
bis 240. In diesem Bereich wird eine ganze Bildschirmzeile 
zwischengespeichert. Wie Sie feststellen, ist in diesem Bereich 
Platz für insgesamt 23 Zeilen; 22 Zeichen sind aber nur erlaubt. 
Der Grund dafür ist, daß das letzte Zeichen für die Erkennung 
eines Zeilenendes benutzt wird. Ist dieses (23te) Zeichen 30, so 
bedeutet das, daß die Zeile fortgesetzt wird. 158 bedeutet 
dagegen, daß die Zeile nun zu Ende ist. 
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0243-0244 


X =PEEK(243)+256*PEEK(244) 


Dieser Zeiger deutet auf das Farb-RAM. 

0251-0254 

Diese Adressen sind eigentlich für den Maschinenprogrammierer 
interessant. Sie werden vom VC-20 nicht belegt, und sind somit 
frei für den Anwender verfügbar. Der große Vorteil der Zero-Page 
ist darin zu sehen, daß für die Abspeicherung von Werten (und 
natürlich auch beim Lesen dieser Adressen) wesentlich weniger 
Speicherplatz im Anwenderprogramm benötigt wird. Erinnern wir 
uns: Die Adressen 0-255 werden hexadezimal dargestellt als 00-FF. 
Alle andern Zahlen gehen von OIOO-FFFF. Wenn ich jetzt in die 
Zero—Page schreiben will, so genügt zum Beispiel ein STA :$FB — 
also ein 2-Byte Befehl. Bei anderen Adressen müßte ich dagegen 
sagen: STA ^1800 - also 3 Bytes. Das klingt wenig. Klann aber 

trotzdem bei größeren Maschinenprogrammen von enormem Vorteil 
sein - außerdem geht's so wesentlich schneller. 

0512-0600 X=PEEK(512), Y=PEEK(513) ... 

Dieser große Bereich dient als Eingabepuffer vom BASIC aus. Geben 
Sie also eine Zeile ein, wird diese im Gesamten hier 
zwischengespeichert. 

0631-0640 X=PEEK(631), Y=PEEK(632) ... 

Haben Sie sich nicht schon oft gewundert, warum verschiedene 
Programme, die von Kassette geladen werden, automatisch starten ? 
Der Grund für dieses "Phänomen" ist in diesen Adressen zu suchen. 
Sie enthalten den Tastaturpuffer. Jede Eingabe eines Zeichens, 
daß Sie über die Tastatur aus eingeben, wird an dieser Stelle 
gespeichert. Ist der Platz belegt, werden die Zeichen in den 
Eingabepuffer übertragen, und es können weitere Zeichen 
eingegeben werden. Diese Übertragung geschieht so schnell, daß 
Sie dieses gar nicht bemerken. Der Trick des Autostartes ist nun 
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einfach der, daß diese Adressen nicht von der Tastatur aus 
gefüllt werden, sondern vom Programm. Es werden also die normalen 
Befehle (z.B, RUN) in diese Speicherstelle geschrieben, und durch 
das Zeichen 13 (für RETURN) aus gestartet. Dazu muß nur noch die 
Adresse 198 geändert werden (s.o.). 

0641-0642 X=PEEK(641)+256*PEEK(642) 

Diese Adresse zeigt auf den Start des Speichers. 

0643-0644 X=PEEK(643)+256*PEEK(644) 

Diese Adresse zeigt auf das Ende des Speichers. 

0646 X=PEEK(646) 

In dieser Adresse wird der momentan benutzte Färb—Code für die 
Zeichenfarbe gespeichert. 

0648 X=PEEK(648) 

Um festzustellen, bei welcher Adresse der Video—RAM beginnt, 
können Sie diese Adresse lesen. Da das Low-Byte immer gleich ist, 
braucht hier nur das High-Byte angesprochen zu werden. 

0649 X=PEEK(649) 

Diese Adresse steuert die Länge des Tastatutpuffers. 
Normalerweise ist die Länge dieses Puffers mit 10 angesetzt 

(siehe Adressen 631 bis 640). Diese Länge können Sie nun für 
eigene Zwecke verkürzen. Eine Erweiterung kann verschiedene 
andere Adressen zerstören. 

0650 X=PEEK(650) 

Wie Sie wissen, sind nicht alle Tastaten "wiederholungsfähig". 
Das heißt, daß bei längerem Drücken der einzelnen Taste, das 


101 



Zeichen nicht wiederholt wird (wie zum Beispiel die Pfeil- 
Tasten). Durch Veränderung des Wertes von 0 auf 128 werden nicht 
nur die Cursor—Steuer—Funktionen, sondern auch alle anderen 
Tasten wiederholt. 

0651 X=PEEK(651) 

Durch Veränderung dieser Adresse können Sie den Zeitfaktor, nach 
dem die Wiederholung des Zeichens beginnt (s. o.), verändern. 
Dadurch können Sie verhindern, daß bei einer unbeabsichtigten 
Verzögerung des Tastendrucks, das Zeichen nicht einfach 
wiederholt wird — der Zeitfaktor wird also länger eingestellt, 
□der aber Sie wollen, daß die Wiederholung des Zeichens schon 
früher einsetzt — der Zeitfaktor wird also verkürzt. Sie müssen 
etwas experimentiern, um die beste Zeitverzögerung zu erreichen. 

0653 X=PEEK(653) 

Mit dieser Adresse können Sie die SHIFT und CTRL— Taste sperren. 
Das kann vorteilhaft sein,'^ um zu verhindern, daß der Anwender bei 
verschiedenen Programmen flasche Eingabe macht. Wenn Sie also 
Ihre Programme vervollkommnen wollen, so sind es gerade diese 
Feinheiten, die den "Normalprogrammierer" vom "Experten" 
unterscheiden. 

0654 X=PEEK(654) 

Mit dieser Adresse können Sie den Zustand der SHIFT—Taste 
abfragen. 

0657 X=PEEK(657) 

Wenn Sie bei der Adresse 653 die Tasten SHIFT und CTRL steuern 
können, so besteht nun die Möglichkeit die SHIFT und C= Tasten zu 
sperren- Damit können Sie verhindern, daß bei der Benutzung eines 
Programmes, unbeabsichtigt vom Groß/Klein- in Groß/Graphik-Modus 
geschaltet werden kann. 
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0768-0769 


X=PEEK(768)+256*PEEK(769) 


Diese Adresse zeigt auf die Fehlertabelle des VC-20. Menn Sie 
also nun deutsche Fehlermeldungen wollen, so müssen Sie diese nur 
an einen bestimmten Speicherplatz schreiben (schützen nicht 
vergessen!) und diese Adresse verändern. Natürlich müssen die 
Fehlercodes übereinstimmen. Das heißt, das der Fehler mit dem 
Code X auch nach der Umsetzung zum Fehlercode x gehört. 

0828-1019 X=PEEK(828), Y=PEEK(829) ... 

In diesem Speicherbereich befindet sich der Puffer des 
Kassettenrecorders. Alle Informationen, die von der Kassette 
geladen werden, werden also hier abgespeichert. Nenn Sie nicht 
mit der Kassette arbeiten wollen, so können Sie diesen 
Speicherplatz für Maschinenprogramme nutzen. Sobald Sie aber Aus— 
oder Eingaben über den Kassettenrecorder amchen, wird der ganze 
Bereich überschrieben. 
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5.2 KERNAL 


Einführung 

über diesen besonderen Teil des VC-20 Betriebssystems wird von 
allen Seiten viel zu wenig berichtet - wo er doch einer der 
wichtigsten und interessantesten Teile des ganzen RÜMs darstellt. 
Wir wollen an dieser Stelle nun ausführlich die Anwendung des 
Kernais und seinen eigentlichen Zweck beschreiben. 

Kernal - Was ist das ? 

Um es kurz zu sagen: Kernal ist eine sogeanannte "Sprungtabelle" 
für verschiedene Funktionen des VC—20 Betriebssystems. Es handelt 
sich hierbei um Ein- und Ausgaberoutinen, und um die Routinen zur 
Speicherverwaltung des VC—20. 

Würde nun, aus irgendwelchen Gründen, das VC—20 Betriebssystem 
verändert, und sei es nur um ein Byte, kann es natürlich 
passieren, daß Ihre Maschinenprogramme nicht mehr ordnungsgemäß 
ablaufen — sofern Sie sich direkt auf Routinen ausserhalb des 
Kernais beziehen. Dagegen bleiben die Sprungadressen im VC-20 
Kernal unverändert. Wenn Sie also zum Beispiel die Routine BSÜUT 
aufrufen wollen, die ein Zeichen aus dem Akku an das 
angeschlossene Ausgabegerät sendet, so können Sie direkt sagen: 

JMP ^:FFD2 oder von BASIC SYS 65490 

An der Stelle 65490 steht nun normalerweise ein Sprung zu der 
Adresse, die unter 806 bis 807 gespeichert ist. An dieser Stelle 
befindet sich der Output-Vektor. Würde die Firma nun Änderungen 
an dieser Adressierung unternehmen, so ist es für Sie 
uninteressant, ob die Adresse 65490 an die Adresse 806,807 
verweist oder an irgendeine andere Stelle. Denn Sie brauchen nur 
die Kernal Routine aufzurufen - der Rest geschieht automatisch. 
Selbst das Kernal könnte geändert werden — nur die 
Einsprungadressen dürfen nicht geändert werden. Deren Wert spielt 
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dagegen gar keine Rolle. 


Es werden vom Kernal insgesamt 39 Routinen, wie sie oben 
besprochen wurden unterstützt. UJenn Sie diese Routinen anstelle 
der direkten Sprünge in die Routine anwenden, werden Sie keine 
Schwierigkeiten mit der Umsetzung auf einen anderen Rechner mehr 
haben und dabei noch sehr viel Zeit sparen. Außerdem ist dieses 
Programm dann auch für denjenigen, der es nicht kennt, viel 
einfacher zu "lesen" und gegebenenfalls zu ändern. 

Um die verschiedenen Funktionen anwenden zu können, müssen Sie 
sich an ein paar Regeln halten. Zunächst müssen Sie die 
verschiedenen Register mit den benötigten Parametern laden und 
dann die Funktion aufrufen. Beachten müssen Sie dabei allerdings, 
daß einige Register bei dem Durchlauf des Betriebssystems 
verändert. Bevor Sie also die Kernal-Routine aufrufen, sollten 
Sie sich sicher sein, daß nicht unbeabsichtigt verschiedene 
Register, die Sie in Ihrem Programm benötigen, zerstört werden. 
Wir wollen Ihnen in diesem Kapitel ausführlich die Anwendung der 
Kernal—Routinen aufzeigen. Anwenden müssen Sie diese dann selber. 

Jede k!ernal —Routine hat verschiedene Teile. Auf diese Teile 
wollen wir nun etwas genauer eingehen, da wir sie in unserer 
Beschreibung jeder einzelnen Kernal-Routine noch benötigen 
werden. Sollten Sie sich nicht genau an diese "Benutzeranleitung" 
der Kernal-Routinen halten, kann es recht leicht passieren, daß 
Ihr Programm diesen Aufruf nicht "überlebt". 

1. ) Der Name der Funktion ' 

Dieser Name spielt eigentlich in der Anwendung dieser Routinen 
keine größere Rolle. Wir haben aber versucht, durch leicht 
verständliche Namen (z.B. LISTEN, BASIN, BSOUT etc.) auch eine 
einprägsame Anwendung zu ermöglichen. 

2. ) Die Einsprungadresse der Funktion 

Ein sehr wichtige Teil innerhalb der Kernal—Funktion ist 
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natürlich die Einsprungadresse. Wie wir oben schon aufgezeigt 
haben, ist es später unerheblich, auf welche Adresse die Routine 
verweist. Wichtig ist nur diese Einsprungadresse zu kennen. 

3. ) Die Übergaberegister an die Funktion 

Wir müssen der Kernal-Routine mitteilen was wir eigentlich 
wollen. Also zum Beispiel welchen Kanal wir öfnnan wollen, oder 
aber welches Zeichen wir senden wollen. Für diese Mitteilungen 
stehen uns die verschiedenen Register zur Verfügung (Akku, X— 
Register, Y—Register, Status, Programmzähler, Stack Pointer). 

4. ) Kernal—Routinen, die vor dieser Routine aufgerufen werden 
müssen 

Einige Kernal-Routinen benötigen Daten, die in anderen Routinen 
erarbeitet bzw. umgewandelt werden. Zu diesem Zweck führen wir 
hier auch noch diese Routinen auf, die vor der eigentlichen 
Kernal-Routine aufgerufen werden müssen. 

5. ) Die Rückgabe von Fehlermeldungen ans Maschinenprogramm 

Trifft die Kernal während der Verarbeitung auf einen Fehler, so 
wird dies dem Maschinenprogramm, aus dem sie aufgerufen wurde 
gemeldet. Zu diesem Zweck wird zunächst das Carry—Flag gesetzt, 
das nach Jedem Kernal-Aufruf überprüft werden sollte (z.B. BGS, 
BCC). Sollte ein Fehler aufgetreten sein, so steht im Akku sein 
Wert. Darauf kommen wir später noch. Mit Hife dieser Routine, 
kann man verhindern, daß das System irgendwelche seltsame Wege 
geht, ohne daß der Anwender darauf eingehen kann. 

6. ) Wieviel Stack—Platz wird benötigt ? 

Die nächste wichtige Information, ist die Tiefe des Stacks, der 
von der Kernal-Routine benötigt wird. Diese Information benötigen 
Sie, um nach Aufruf der Routine, wieder an die Daten zu kommen, 
die Sie vorher in den Stack geschrieben haben- 
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7.) Von der Kernal—Routine benutzte Register 


Intern benötigt die Kernal—Routine natürlich auch noch 
verschiedene Register. Diese Register werden hier angeführt, 
damit Sie sehen, welche Register vor Aufruf der Routine auf den 
Stapel bringen sollten, damit diese nicht überschrieben werden. 

Kernal dient aber nicht nur dem Programmierer zum Aufruf 
verschiedener Betriebssystem-Routinen. Es überwacht bei Start des 
Systems noch einige andere Aufgaben. 

Zunächst ist da die Abfrage, ob ein Modul verwendet wird. Haben 
Sie also vor Einschalten des VC—20 ein ROM—Modul eingeschoben, so 
erkennt Kernal dieses und gibt die Steuerung des VC—20 an dieses 
Modul ab. Daher ist es auch wichtig, das Modul vor Einschalten 
einzustecken, da sonst nicht nur der VC—20 oder das Modul 
beschädigt werden können, sondern auch das Vorhandensein eines 
Moduls gar nicht erkannt wird. Liegt nach Einschalten kein Modul 
vor, so geht Kernal zum nächsten Schritt. 

Bei diesem Schritt überprüft und initialisiert Kernal den 
Speicher des VC—20. Hierbei werden zuerst die Speicherbereiche 
von 0 bis 255 und von 512 bis 1023 gelöscht und der 
Kassettenpuffer nach S2B geigt. Somit ist dieser Bereich des 
Systems "startklar". Danach wird der gesamte RAM—Bereich 
beginnend bei 1024 getestet. Kernal sucht nun den Anfang des RAM— 
Bereiches, bei dem mit der Programmierung begonnen werden kann. 
Ist diese Adresse größer als 4096 (1024 bis 4095 ist der Platz 
für die 3K Erweiterung und 4096 das erste Byte des normalen RAM— 
Bereichs), so bedeutet das, daß das System nicht einwandfrei 
arbeitet (keine 3K Erweiterung und kein normaler RAM—Bereich). 
Aus diesem Grund wird nach einem fehlerhaften Test ein recht 
eigenartiger Bildschirm angezeigt. An für sich brauchen Sie sich 
nicht vor einem solchen Fehler fürchten, da die RAM-Bausteine 
sehr zuverlässig sind. Sollte aber trotzdem irgendwann mal ein 
solcher Fehler auftreten, so wissen Sie nun, um was es sich 
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handelt. 


Nach diesem ersten Speichertest, bei dem der Anfang des RAMs 
gesucht wurde, geht Kernal nun auf die Suche nach dem Ende des 
RAM-Bereichs. Sollte dieses Ende kleiner als 8192 sein (bis dahin 
reicht der Bildschirmspeicher), so bedeutet das, daß dieser 
Speicherbereich fehlerhaft ist, und der VC—20 antwortet wie oben 
beschrieben. 

Danach folgt ein weiterer, wichtiger Schritt. Wie Sie sicherlich 
wissen, verändert sich ja bei Speichererweiterung teilweise auch 
der Bildschirmspeicher. Wenn das RAM—Ende größer als 8448 ist, 
dann ist der Start des Bildschirmspeichers bei 4096, der 
Spei eheranfang liegt bei 4608 und reicht bis zum errechneten RAM- 
Ende. Sollte das Ende des RAMs jedoch kleiner als 8448 sein, so 
liegt der Bildschirmspeicher bei 7680 und das Ende des RAMs liegt 
ebenfalls bei 7680. Nun können Sie auch erkennen, warum 
eigenartuge Zeichen auf dem Bildschirm erscheinen, wenn Sie 
versuchen ein Programm zu laden, das nicht in den vorhandenen 
Speicherplatz paßt. 

Zum Schluß werden noch alle anderen Vektoren gesetzt, die die 
Ein- Ausgabesteuerung übernehmen, die Sprungtabelle von 788 bis 
819 wird gebildet, die oben schon angesprochene CHRGET Routine 
wird abgespeichert und die erste Bildschirmmeldung ausgegeben: 

*** CBM BASIV V2 *** 

3583 BYTES FREE 

READY. 

Nun ist Ihr VC—20 bereit Ihre Befehle entgegenzunehmen. Hätten 
Sie gedacht, daß schon, bevor Sie nur ein Zeichen auf dem 
Bildschirm zu sehen ist, mit dem VC-20 so viel passiert ? Wir 
hoffen, daß Ihen nun einige Zusammenhänge, von denen man bisher 
keine Ahnung hatte klarer geworden sind, und Sie Ihren VC-20 nun 
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besser "verstehen". 

Auf den nächsten Seiten wollen wir nun im einzelnen auf die 
Routinen des Kernal eingehen. Es emphiehlt sich in dem 
Zusammenhang mit dem VC-20 ROM-Listing zusammen zu arbeiten, 
damit wirklich alle Zusammenhänge, zwischen Aufruf der Kernal— 
Routine und deren Ausführung, klar werden. 

Funktion: INPUT 

Einsprung: ^FFA5 65445 

übergabereg.: Akku 

Routinen: TALK, SATALK 

Fehler: s. STATUS 

Stacktiefe: 13 

Register: Akku, X-Register 

Diese Kernal-Funktion holt Daten vom Seriellen Bus (lEC—Bus). 
Diese Daten können entweder von der Floppy, dem Kassettenrecorder 
oder einem anderen angeschlossenen lEC-Gerät. Diese Daten werden 
dann in den Akkumulator geschrieben, von wo sie aus dem 
Maschinenprogramm entnommen werden können. Bevor diese Routine 
aufgerufen werden kann, ist darauf zu achten, daß mit Hilfe der 
TALK-Routine erst der entsprechende Kanal für den Datentransfer 
geöffnet wurde. Falls das angeschlossene Gerät eine zweite 
Adresse benötigt, so muß auch noch die SATALK-Routine aufgerufen 
werden. Falls während dem Datentransfer ein Fehler aufgetreten 
ist, so kann der mit Hilfe der STATUS-Funktion ausgewertet 
werden. 

Beispiel: JSR ^FFA5 

STA ^1800,X 

Funktion: CHKIN 

Einsprung: ^FFC6 65478 

übergabereg.: X-Register 

Routinen: OPEN 

Fehler: 3,5,6 

Stacktiefe: - 
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Register 


Akku, X-Register 


Um aus einer Datei Informationen zu lesen, muß 
Lesen geöffnet werden. Diese Aufgabe übernimmt 
Dabei muß die Datei zwar schon mit Hilfe 


geöffnet sein, 
Lesen. Di 


sie erhält aber durch die CHKIN 
öffnen entfällt dann, wenn von 
gelesen werden soll. Ansosnsten gibt das X-Regi 
Filenummer an. 


diese Datei zum 
dieses Register, 
der OPEN-Routine 
die Anweisung zum 
der Tastatur aus 
ster die logische 


Bei spiel: 


LDX #^02 
JSR ^FFC6 


Funktion: 
Einsprung: 
übergabereg.: 
Routinen: 
Fehler: 
Stacktiefe: 
Register: 


CHKOUT 

^FFC9 65481 

X-Register 

OPEN 

3,5,7 

Akku, X-Register 


Diese Routine hat den umgekehrten 
Datei geöffnet wurde (nicht nötig 
kann Sie zum Schreiben vorbereitet 
X-Register die logische Filenummer 


Zweck der CHKIN. Nachdem die 
bei Ausgabe auf Bildschirm), 
werden. Auch hier enthält das 


Bei spiel: 


LDX #^03 
JSR ^FFC9 


Funktion: 

Einsprung: 
übergabereg.: 
Routinen: 
Fehler: 
Stacktiefe: 
Register: 


BAS IN 

^FFCF 65487 

Akku 

OPEN, CHKIN 
s. STATUS 

Akku, X-Register 
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Mit dieser Routine können Sie über den mit den Kernal-Routine 
CHKIN und der OPEN-Routine geöffneten Daten1eitung, Daten in den 
V/C-20 Einlesen. So können zum Beispiel auch längere Text von 
Tastatur aus eingelesen werden, genau so wie Daten von Band oder 
Floppy. Beim Einlesen von Tastatur, werden die Zeichen einzelnen 
in den Input-Puffer geschrieben, von wo sie danach weiter 
verarbeitet werden können. 


Bei spiel: 


JSR ^FFCF 
STA ^1800,X 


Funktion: 

Einsprung: 

übergabereg.: 

Routinen: 

Fehler: 

Stacktiefe: 

Register: 


BSOUT 

^FFD2 65490 

Akku 

□PEN, CHKOUT 
s. STATUS 


Diese Funktion arbeitet im Prinzip genau so, wie die BASIN— 
Routine, mit dem Unterschied, daß die Zeichen nicht eingelesen 
sondern ausgegeben werden. Dazu muß wieder die Datei geöffnet 
werden (entfällt bei Bildschirmausgabe) und zum Schreiben 
vorbereitet werden. Sie müssen aber darauf achten, daß nur die 
Dateien geöffnet sind, auf die der Text, oder die Zeichen, 
ausgegeben werden sollen. Denn die BSÜUT-Routine schreibt auf 
alle offene Dateien - also aufgepaßt ! 


Beispiel: 

LDX 

#^04 

;Druckerkanal 


JSR 

^FFC9 

;öffnen 


LDA 

#^41 

; 'A' 


JSR 

^FFD2 

;ausgeben 


Funktion: 
Einsprung: 
übergabereg.: 
Routinen: 


OUTPUT 

^FFA8 65448 

Akku 

LISTEN, SALISTEN 
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Fehler: 


s. STATUS 


Stacktiefe- - 

Register. Akku 

Diese Routine schickt ein Zeichen an den lEC-Bus. Dieser Bus muß 
zuvor mit der LISTEN-Funktion, und eventuell, falls eine 
Sekundäradresse angegeben werden muß, noch durch die SALISTEN- 
Funktion bezeichnet werden. Danach kann Zeichen für Zeichen über 
den seriellen Bus geschickt werden. 

Beispiel: LDA #^41 

JSR ^FFAB ;senden 

Funktion: CLALL 

Einsprung: ^FFE7 65511 

übergabereg.: — 

Routinen: — 

Fehler: ~ 

Stacktiefe: 11 

Register: Akku, X-Register 

Diese Routine schließt alle offenen Dateien, und modifiziert die 
entsprechenden Vektoren. 

Beispiel: JSR ^FFE7 

Funktion: CLOSE 

Einsprung: ^FFC3 65475 

übergabereg.: Akku 

Routinen: - 

Fehler: - 

Stacktiefe: - 

Register: Akku, X-Register 

Mit Hilfe dieser Routine können Sie einzelne, logische Dateien 
schließen, die vorher mit der OPEN-Routine geöffnet wurden. Im 
Akku steht die Adresse der zu schließenden Datei. 
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Bei spiel: 


LDA #^04 ;CL0SE 4 

JSR ^FFC3 


Funktion: 

Einsprung: 
übergabereg.: 
Routinen: 
Fehler: 
Stacktiefe: 
Register: 


CLRCH 

^FFCC 65484 


9 

Akku, X-Register 


Diese Routine schließt alle offenen Kanal 
Beispiel nach einem Lesen von Diskette oder 
sein. Ansonsten würden die nächsten 
angeschlossenen und geöffneten Kanäle wirken 
nicht tatsächlich beabsichtigt, die Floppy al 


e. Diese kann zum 
Kassette nützlich 
Befehle auf alle 
— und wer will, wenn 
s Drucker benutzen ? 


Bei spiel : 

JSR 

^FFCC 

Funktion: 

GETIN 


Einsprung: 

^FFE4 

65512 

übergabereg.: 

Akku 


Routinen: 

- 


Fehler: 

- 


Stacktiefe: 

- 


Register: 

Akku, X-Register 

Diese Routine 

ließt ein 

Zeieher 

von dort) und 

speichert 

seinen 

Zeichen im Puffer gewesen sein. 

Beispiel: 

Al JSR 

^FFE4 


CMP 

#^00 


BEQ 

Al 


vom Tastaturpuffer (entfernt ihn 
ASCII-Wert im Akku. Sollte kein 
so ist der Wert des Akkus 0. 

;warte bis eine Teste gedrückt 


Funktion: IDBASE 

Einsprung: ^FFF3 65523 
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übergabereg.: X-Register, Y-Register 

Routinen: — 

Fehler: — 

Stacktiefe: 2 

Register: X-Register, Y-Register 

Diese Routine dient hauptsächlich dazu, die Programme von anderen 
CBM-Programmen (VIC) auch nach einer Änderung diverser Adressen, 
anwenden zu können. Wie Sie ja vielleicht Missen, ist es möglich, 
Programme von größeren Commodore Geräten auf dem V/C-20 zu laden. 
BASIC Programme können so nicht nur gelistet, sondern auch 
verändert und nach den notwendigen Änderungen sogar gestartet 
werden. Bei den großen CBM ist das leider nicht so einfach 
möglich. Ihnen fehlt diese Routine. 

Beispiel: JSR ^FFF3 

STX ^1800 

STY ^1801 

Funktion: LISTEN 

Einsprung: ^FFBl 65457 

übergabereg.: Akku 

Routinen: — 

Fehler: s. STATUS 

Stacktiefe: - 

Register: Akku 

Mit dieser Routine können Sie ein angeschlossenes lEC-Gerät 
zwischen 4 und 31 öffnen, damit von diesem Gerät Daten übertragen 
werden können. Der entsprechende Wert (4-31) muß natürlich vorher 
in den Akku gebracht werden. 

Beispiel: LDA #^08 

JSR ^FFBl 

Funktion: LOAD 

Einsprung: ^FFD5 65493 
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übergabereg.: 
Routinen: 
Fehler: 
Stacktiefe: 
Register: 


Akku, X-Register, Y-Register 
SETFLS, SETNAM 
0, 4, 5, 8, 9 

Akku, X-Register, Y-Register 


Diese Routine lädt Daten von einem beliebigen Eingabegerät (z.B. 
Floppy oder Kassette) direkt in den Speicher. Die Information des 
Akku besagt, ob geladen (LOAD) oder verglichen (VERIFY) werden 
soll. Im ersten Fall hat der Akku den Wert 0, im zweiten Fall den 
Wert ein. Soll der Vorspann nicht mitgeslen werden, um zum 
Beispiel das Programm (Maschinenprogramm) an eine bestimmte 
Stelle zu Laden, so müssen im X— und Y-Register die 
Anfangsadresse des Programms stehen. 


Bei spiel: 


^1800: 


LDA 

#^08 

LDX 

#^01 

LDY 

#^01 

JSR 

^FFBA 

LDA 

#^04 

LDX 

#^00 

LDY 

#$18 

JSR 

$FFBD 

LDA 

#$00 

LDX 

#$FF 

LDY 

#$FF 

JSR 

$FFD5 

STX 

VARTAB 

STY 

VARTAB+1 

JMP 

STAR 

.BYT 

'TEST' 


;LADE PROGRAMM VON DISK 


;LÄNGE DES NAMENS 


;00 BEDEUTET LADEN 


Funktion: 

Einsprung: 
übergabereg.: 
Routinen: 
Fehler: 


MEMBOT 

^FF9C 65436 

X-Register, Y-Register 
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Stacktiefe: 

Register: 


X-Register, Y-Register 


Diese Routine kann entweder den Start des Speichers anzeigen oder 
verändern- Um zu wählen, ob gelesen oder geschrieben werden soll, 
dient bei dieser Funktion das übertrag (Carry) Bit. Ist dieses 
Bit gesetzt, so bedeutet das, daß der Start nur gelesen, ein 
gesetztes Bit bedeutet, daß der Start geschrieben werden soll. 

Beispiel: SEC ;übertrag setzen 
JSR ^FF9C 


Funktion: 

Einsprung: 

übergabereg.: 

Routinen: 

Fehler: 

Stacktiefe: 

Register: 


MEMTOP 

^FF99 65433 

X-Register, Y-Register 


X-Register, Y-Register 


Durch diese Routine können Sie das Ende des Speichers lesen oder 
schrieben. Genau wie ber der MEMBOT-Routine, so zeigt auch hier 
das Übertrag-Bit an ob gelesen oder geschrieben werden soll. 


Beispiel: 


CLC ;übertrag löschen 

JSR ^FF99 


Funktion: 

OPEN 



Einsprung: 

^FFCO 

65472 


übergabereg. 

: - 



Routinen: 

SETLFS 

;, SETNAM 


Fehler: 

1 

4, 5, 6 


Stacktiefe: 

- 



Register: 

Akku, 

X-Register, 

Y-Regi st er 

Diese Kernal 

-Routine 

öffnet eine 

logische Datei. Somit kann diese 

Datei für Ein— Ausgabeanweisungen benutzt werden. Die Routinen 
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SETFLS und SETNAM müssen vorher au-fgeru-fen werden. 

Beispiel: JSR ^FFCO 

Funktion: PLOT 

Einsprung: ^FFFO 65520 

übergabereg-: Akku, X—Register, Y—Register 

Routinen: - 

Fehler: - 

Stacktie-fe: 2 

Register: Akku, X-Register, Y-Register 

Mit Hilfe dieser Routine, können Sie den Cursor an eine bestimmte 
Bildschirmposition setzen- Diese Position setzt entweder den 
Cursor an die Bildschirmposition, die durch die X- und Y-Register 
gekennzeichnet ist, indem das Übertrag-Bit gelöscht ist, oder man 
lädt die beiden Register mit der Position, auf der der Cursor zur 
Zeit des Aufrufs steht - dann muß das Übertrag-Bit gesetzt sein- 


Bespiel: 

LDX 

#^0A 

;Cursor nach 10,2 


LDY 

#^02 



CLC 




JSR 

^FFFO 


Funktion: 

RDTIM 



Einsprung: 

^FFDE 

65502 


übergabereg-: 

Akku, X-l 

Register, 

Y-Register 


Routinen: - 
Fehler: - 
Stacktiefe: 2 

Register: Akku, X-Register, Y-Register 

Diese Routine ließt die Zeit der eingebautet System-Uhr- Die Zeit 
wird entsprechend in den 3 Registern abgespeichert- Von dort kann 
Sie an eine bestimmte Speicherstelle abgelegt werden. 

Beispiel: JSR ^FFDE 
STY ^1800 
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STX ^1801 
STY ^1802 


Funktion: 

Einsprung: 

übergabereg.: 

Routinen: 

Fehler: 

Stacktiefe: 

Register: 


STATUS 

^FFB7 65463 

Akku 

2 

Akku 


Mit dieser Routine können Sie den Status der Ein- Ausgabegeräte 
abfragen. Es wird entweder der Status des Gerätes oder aber der 
Fehler ausgegeben. 

Folgende Werte sind möglich: 


ST Bit 


ST Wert Kassette lesen 


Seriell lesen / Schriben 


0 

1 

2 

3 

4 

5 

6 
7 

Funktion: 

Einsprung: 

übergabereg 

Routinen: 

Fehler: 

Stacktiefe: 

Register: 


01 Time out 

02 

04 Kurzer Block 

08 Langer Block 

16 Lese-Fehler 

32 Prüfsummen-Fehl er 

64 EOF EDI 

128 EÜT Device not present 

RESTOR 

^FF8A 65415 


2 

Akku, X-Register, Y-Register 


Durch Anwendung dieser Routine können Sie wieder alle Vektoren 
auf ihren alten Zustand (nach dem Start) zurückführen. 
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Bei spiel: 


JSR ^FFBA 


Funktion: 

Einsprung: 
übergabereg.: 
Routinen: 
Fehler: 
Stacktiefe: 
Register: 


SAVE 

^FFDB 65496 

Akku, X-Register, Y-Register 
SETLFS, SETNAM 
5, B, 9 

Akku, X-Register, Y-Register 


Ähnlich der LOAD Routine, so arbeitet auch diese SAVE Routine. 
Der Unterschied besteht darin, daß ein bestimmter Speicherbereich 
auf Kassette oder Diskette abgespeichert wird. Dazu wird die 
Anfangsadresse des Programms in der Zero-Page 
zwischengespeichert, die X- und Y-Register mit dieser Adresse 
geladen und dann die Routine aufgerufen. 


Funktion: SCNKEY 

Einsprung: ^FF9F 65439 

übergabereg.: - 

Routinen: - 

Fehler: — 

Stacktiefe: - 

Register: Akku, X-Register, Y-Register 


Diese Routine überprüft den Zustand der Tastatur danch, ob eine 
Taste gedrückt ist. 


Beispiel: 

Al JSR 

^FF9F 



JSR 

^FFE4 



CMP 

#^00 

;keine Taste gedrückt 


BEQ 

Al 



JSR 

^FFD2 

;gebe Zeichen aus 

Funktion: 

SCREEN 



Einsprung: 

$FFED 

65517 


übergabereg.: 

X-Register, Y-Register 
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Routinen: 


Fehler: - 

Stacktie-fe: 2 

Register: X-Register, Y-Register 

Diese Routine dient hauptsächlich der Au-f wärtskompatibi 1 i tat. Sie 
stellt das Bi 1 dschi rm-f ormat -fest. Beim VC-20 ist dies ja 
bekanntlich 22 (X-Register) und 23 (Y-Register). So können Sie 
zum Beispiel bei einem Maschinenprogramm -feststellen, ob ein 40 
Zeichen Bildschirm (z.B. CBM A4) vorliegt. 

Beispiel: JSR ^FFED 


Funktion: 

Einsprung: 
übergabereg.: 
Routinen: 
Fehler: 
Stacktie-fe: 
Register: 


SECÜND 

^FF93 A5427 

Akku 
LISTEN 
s. STATUS 

Akku 


Diese Routine übergibt bei Bedar-f die Sekundär-Adresse an das 
Ein- Ausgabegerät. Diese Adresse muß vor Au-fruf dieser Routine in 
den Akku geladen werden. Natürlich muß mit LISTEN das Gerät, an 
welches die Sekundär-Adresse geschickt werden soll, erst dem 
Computer zugewiesen werden. 


LDA 

#$04 

JSR 

$FFB1 

LDA 

#$01 

□RA 

#$A0 

JSR 

$FF93 


Funktion: SETLFS 

Einsprung: ^FFBA A54AA 

übergabereg.: Akku, X-Register, Y-Register 

Routinen: — 
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Fehler: - 

Stacktie-fe: 2 

Register: — 

Diese Routine verwaltet die logische Dateinummer (Akku), die 
Geräteadresse (X-Register) und die Sekundäradresse (Y-Register) 
■für die anderen Kernal-Routinen. 

Geräteadressen können sein: 

Adresse Gerät 

0 Tastatur 

1 Kassettenrecorder 

2 RS-232C Gerät 

3 Bildschirm 

4 Drucker 

8 Diskettengerät (seriell) 

Beispiel: LDA #^01 

LDX #^08 

LDY #^01 

JSR ^FFBA 

Funktion: SETMSG 

Einsprung: ^FF90 65424 

übergabereg.: Akku 

Routinen: - 

Fehler: - 

Stacktiefe: 2 

Register: ' Akku 

Mit dieser Routine können Sie die Ausgabe von Fehler- oder 
Kontrol1meldüngen steuern- Bit 6 und 7 steuern die Herkunft der 
Meldung. Ist Bit 7 gesetz, wird eine Fehlermeldung aus dem Kernal 
gesendet. Wenn Bit 6 gesetzt ist, wird eine einfache Meldung 
ausgegeben. 

Beispiel: LDA #^80 ;Fehlermeldüng 
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JSR ^FF90 


Funktion: SETNAM 

Einsprung: ^FFBD 65469 

übergabereg.: Akku, X-Register, Y-Register 

Routinen: - 

Fehler: - 

Stacktiefe: - 

Register: — 

Diese Kernal-Routine steuert die Dateinamen zum Laden oder 
Speichern auf Kassette oder Diskette. Im Akku steht die Länge des 
Programmnamens, im X-Register das Low-Byte und im Y-Register das 


High-Byte der 

Adresse, 

bei der 

der Programmname abgespeichert 

i st. 




Bei spiel: 

LDA 

#^04 

;Länge des Namens (z.B. TEST) 


LDX 

#^00 

;ab Adresse ^1800 


LDY 

#^18 



JSR 

$:FFBD 


Funktion: 

SETTIM 



Einsprung: 

^FFDB 

65499 


übergabereg.: 

Akku, X- 

Register, 

Y-Register 


Routinen: - 

Fehler: — 

Stacktiefe: 2 

Register: - 

Mit dieser Routine kann die System-Uhr gesteuert werden. Die Zeit 
wird in folgender Form berechnet: Alle 1/60 Sek. wir die Uhr auf 
den neuen Stand gebracht. Das ergibt in 24 Stunden 5.184.000 
Takte. Um nun die genau Zeit einzugeben, muß der Akku mit dem 
ersten High-Byte, das X-Register mit dem zweiten High-Byte und 
das Y-Register mit dem Low-Byte der Zeit geladen werden. 

Beispiel: LDA #^00 ;00:01:00 
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LDX #^00 
LDY #^3C 
JSR ^FFDB 

Funktion: 

Einsprung: 
übergabereg.: 

Routinen: 

Feh1er: 

Stackt ie-f e: 

Register: 

Time-out's sind eine wichtige "Einrichtung" bei dem Datentrans-fer 
über den seriellen Bus. Durch Setzen oder Löschen von Bit 7 ist 


es möglich 

Time-out ein- 

(Bit 7 = 

0) oder auszuschalten (Bit 

7 = 

1) . 





Beispiel: 

LDA 

#^00 

;einschalten des Time-out 

' s 


JSR 

^FFA2 



Funktion: 

STOP 




Einsprung: 

^FFEl 

65505 



übergabereg 

.: Akku 




Routinen: 

- 




Fehler: 

- 




Stackt i e-fe: 

- 




Register: 

Akku, X-Register 



Mit Hil-fe 

dieser Kernal¬ 

-Routine, 

können Sie jede einzelne 

Taste 

abfragen. 

lst die STOP- 

-Taste des 

i OC-20 gedrückt, so wird 

die 

Nul1-Flagge 

gesetzt. Ansonsten 

enthält der Akku den Wert 

der 

letzten Tastatur-Abfrage. 




Beispiel: 

JSR 

^FFEl 




BNE WEITER ;STÜP-Taste nicht gedrückt 
JMP STOP 


SETTMÜ 

$FFA2 65442 

Akku 

2 
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Funktion: TALK 

Einsprung: ^FFB4 65460 

übergabereg.: Akku 

Routinen: - 

Fehler: s. STATUS 

Stacktie-fe: - 

Register: Akku 


Mit Hil-fe dieser Routine können Sie, das mit 
angesprochene Gerät, zum Senden ö-f-fnen. Der 
im Bereich von 4 bis 30 liegen. 


dem Inhalt des Akkus 
Inhalt des Akku kann 


Beispiel: 


LDA #^04 
JSR $FFB4 


Funktion: 
Einsprung: 
übergabereg.: 
Routinen: 
Fehler: 
Stacktie-fe: 
Register: 


SATALK 

^FF96 65430 

Akku 

TALK 

s. STATUS 

Akku 


Wenn das unter TALK angesprochene Gerät zusätzlich noch eine 
Sekundär—Adresse benötigt, so kann diese mit dieser Kernal — 
Routine übergeben werden. Diese Adresse wird durch den Akku dem 
Gerät übergeben - der Wert dar-f hiebei zwischen 4 und 31 liegen. 


Bei spiel: 

LDA 

#^04 


JSR 

^FFB4 


LDA 

#^04 


JSR 

^FF96 

Funktion: 

UDTIM 


Einsprung: 

$FFEA 

65514 


übergabereg.: 
Routinen: 
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Fehler: — 

Stacktie-fe: 2 

Register: Akku, X-Register 

Diese Routine wird normalerweise vom Kernal-Interrupt automatisch 
aufgerufen. Nur wenn der Benutzer eine eigene Interruptsteuerung 
verwendet, muß diese Funktion aufgerufen werden. 

Beispiel: JSR ^FFEA 

Funktion: UNLSN 

Einsprung: ^FFAE 65454 

übergabereg.: — 

Routinen: — 

Fehler: s. STATUS 

Stacktiefe: - 

Register: Akku 

Durch diese Routine werden alle Geräte angewiesen, ihren 
Datenempfang vom VC-20 abzubrechen. Natürlich werden nur Geräte 
angesprochen, die vorher mit der LISTEN-Routine geöffnet wurden. 

Beispiel: JSR ^FFAE 

Funktion: UNTLK 

Einsprung: ^FFAB 65451 

übergabereg.: — 

Routinen: — 

Fehler: s. STATUS 

Stacktiefe: - 

Register: Akku 

So wie die UNLSN Routine alle LISTEN-Geräte zurücksetzt, so 

werden alle durch TALK angesprochenen Geräte angewiesen, ihre 
Übertragung zu stoppen. 

Beispiel: JSR $:FFAB 
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Funktion: 

Einsprung: 
übergabereg.: 
Routinen: 
Fehler: 
Stacktiefe: 
Register: 


VECTOR 

$FF8D 65412 

X-Register, Y-Register 


2 

Akku, X-Register, Y-Register 


Mit Hilfe dieser Routine können Sie die Sprungtabelle in den 
Speicher übertragen und von dort wieder in den Speicherbereich 
zurückschreiben. So ist es Ihnen leicht möglich, die Tabelle zu 
modifizieren, ohne die Modifikationen direkt an den (sehr 
wichtigen) Normal werten im Speicher machen zu müssen. Nenn das 
Übertrag-Bit gesetzt ist, dann wird die Sprungtabelle an die 
Adresse übertragen, die durch das X— und Y-Register angegeben 
ist. Ist das Übertrag-Bit gelöscht, so wird die Tabelle vom 


Benutzerspei eher 

wieder an 

den alten Speicherplatz 

zurückgeschrieben. 




Beispiel: 

LDX 

#^00 



LDY 

#$18 



SEC 


;lade Sprungtabelle in RAM 


JSR 

$FF8D 



Fehlerkennziffern 


Bei der Benutzung der Kernal—Routinen können verschiedene Fehler 
auftreten. Sollte dieses geschehen, wird das Übertrag-Bit gesetzt 
und der Akku enthält die Kennziffer des Fehlers. 

Wir haben Ihnen hier die vollständige Tabelle aller 
Fehlerkennziffern aufgeführt. 

Kennziffer Bedeutung 


0 Abbruch durch Drücken der STOP-Taste 

1 Zu viele offene Dateien 
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2 

3 

4 

5 

6 

7 

8 
9 

Wenn 

haben 

gerne 


Datei bereits geö-ffnet 
Datei noch nicht geö-ffnet 
Datei nicht gefunden 
Gerät nicht bereit 

Datei ist nicht zur Eingabe geöffnet 
Datei ist nicht zur Ausgabe geöffnet 
Name der Datei nicht vorhanden 
Unzulässige Gerätenummer 


Sie zu diesem recht schwierigen Thema noch weitere 
können Sie sich gerne an uns wenden. Wir stehen 
mit Rat und Tat zur Verfügung. 


Fragen 

Ihnen 
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Der SYS-Be+ehl beim VC-20 


Der SYS-Be+ehl dient zum Au+rut von Maschinenprogrammen von einem 
BASIC-Programm aus. Das Maschinenprogramm wird wie ein 
BASIC-Unterprogramm (GÜSUB...RETURN) ausge+uhrt. Nach der 
Aus+uhrung wird die Kontrolle wieder an das BASIC-Programm 
zurückgegeben. Maschinenprogramme wird man hauptsächlich dann 
einsetzen, wenn es aut Geschwindigkeit ankommt oder wenn Aufgaben 
auszu+ühren sind, die sich mit BASIC nur schwer oder umständlich 
losen lassen. Ein typischer Anwendungsfall wäre z.B. eine 
Sortierroutine. In BASIC dauert das Sortieren von 100 
Stringvariablen (z.B. einer Adressdatei) über eine Minute; ein 
entsprechendes Maschinenprogramm braucht dazu noch nicht einmal 
eine Sekunde. Dies sind Anwendungen für selbst geschriebene 
Maschinenprogramme. Aber auch Betriebssystemroutinen des OC-20 
lassen sich nutzbringend anwenden. Hier bietet der SYS—Befehl des 
VC-20 zusätzlich noch die Möglichkeit, Parameter an das 
Maschinenprogramm zu übergeben und Ergebnise zurück zu bekommen. 

Vier Speicherzellen des VC—20 sind für die ParameterÜbergabe zum 
und vom SYS-Befehl vorhanden. Diese Parameter werden direkt an die 
Register des Mikroprozessors 6502 übergeben. In Adresse 780 muß 
dann der Inhalt des Akkumulators stehen (das Universalregister des 
6502), in Adresse 781 und 782 stehen X— und Y-Register (die 
Indexregister) und in Adresse 783 wird das Statusregister (die 
Flags) übergeben. Beim Rücksprung vom Maschinenprogramm werden in 
diesen Adressen die Registerinhaite wieder für BASIC zur Verfügung 
gestel1t. 

Ein Beispiel soll eine mögliche Anwendung demonstrieren. 

Das BASIC des VC-20 besitzt keine Möglichkeit zur direkten 
Cusroradressierung. Wollen Sie zum Beispiel einen Text in Zeile 15 
ab Spalte 9 ausgeben, so müssen den Cursor durch Ausgabe von 
Cursor Home, 15 mal Cursor down und neunmal Cursor right auf diese 
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Position bringen, ehe Sie den Text dort ausgeben können- Dies ist 
nicht nur speicherplatzau+wendig, sondern zudem auch noch langsam. 
Das Betriebssystem hat da-für jedoch schon eine Routine zur 
Verfügung, Diese Routine dient sowohl zum Setzen des Cursors als 
auch zum Holen der Cursorposition. Das Carry-flag (Bit O des 
Statusregisters) des Prozessors dient dabei zur Unterscheidung: 
gelöschtes Carry bedeutet Cursor setzen, gesetztes Carry-Flag heißt 
Cursorposition holen. Die Cursorposition wird dabei im X-Register 
(Cursorzeile) und im Y—Register (Cursorspalte) übergeben- 

Damit können wir jetzt auch von BASIC aus den Cursor direkt an 
jede beliebige Position des Bildschirms setzen. 

100 REM CURSOR POSITIONIEREN 


110 

CU = <£j5520 


REM 

ADRESSE DER 

ROUTINE 

120 

ZE = 701 


REM 

CURSORZEILE 

IM X-REGISTER ÜBERGEBEN 

130 

SP = 782 


REM 

CURSORSPALTE 

IM Y-REGISTER 

140 

SE = 783 


REM 

STATUSREGISTER 


200 INPUT "ZEILE, SPALTE": Z,S 

210 POKE ZE,Z: POKE SP,S: POKE SE,0 : REM CARRYFLAG LÖSCHEN 
220 SYS CU : REM CURSOR SETZEN 

230 PRINT "TEXT"; : REM TEXT WIRD AB DER CURSORPOSITION AUSGEGEBEN 
240 GOTO 200 

Mit dieser kleinen Routine können Sie also den Cursor ohne 
umständliche Stringmanipulationen an jeden beliebigen Punkt des 
Bildschirms setzen. 

Die Routine kann ebenso zur Ermittlung der augenblicklichen 
Cursorposition dienen. Wenn Sie die Zeilen 100 bis 140 des obigen 
Programms übernehmen, sähe die Abfrage der Cursorposition so aus: 

200 POKE SE,1 : REM CARRYFLAG SETZEN 
210 SYS CU : REM POSITION HOLEN 
220 Z=PEEK(ZE): S=PEEK(SP) 

230 PRINT "CURSOR STAND IN ZEILE";Z;"SPALTE";S 
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5.4 Speicherung vom Maschinenprogrammen beim VC-20 


Will man -für den VC—20 eigene Maschinenprogramme schreiben, so 
stellt sich immer die Frage, wo man solche Programme abspeichern 
kann, damit sie nicht durch Betriebssystem oder BASIC 
überschrieben werden. Sie man sich die Speicherbelegung des VC-20 
einmal an, so gibt es dafür mehrere Möglichkeiten. 

Unbenutzte Bereiche des Betriebssystems. 

Hier bietet sich in erster Linie der Puffer für Bandein- und 
ausgabe an. Er belegt den Adressberei ch 828 bis 1019 ($:033C bis 
:f03FB). Diese 192 Bytes sind der ideale Platz für kleinere 
Maschinenprogramme. Aus der Nutzung als Bandpuffer ergibt sich 
jedoch schon eine Einschränkung; Man kann Maschinenprogramme aus 
diesem Bereich nicht auf Kassette abspeichern, da sie dabei mit 
dem Filenamen überschrieben werden. Abspeichern und Laden von 
Diskette ist dagegen ohne weiteres möglich. Ein weiterer 
ungenutzter Bereich liegt von Adresse 680 bis 767 (:J:02A8 bis 
$:02FF) Dieser Bereich von 88 Bytes unterliegt keinen 
Einschränkungen und kann für kleine Maschinenprogramme genutzt 
werden; ein Abspeichern auf Kassette ist ohne weiteres möglich. 
Hat man längere Maschinenprogramme, muß man sich nach einem 
anderen Bereich umsehen. Hat man eine 8K—RAM—Erweiterung im 
Bereich von 40960 bis 49151 ($A000 — :$:BFFF) , so dürfte dies auch 
für längste Maschinenprogramme ausreichen. 

Ansonsten besteht noch die Möglichkeit, den Bereich für 
BASIC-Programme einzuschränken und bestimmte Bereiche für 
Maschinenprogramme zu reservieren. Hier kann man nun entweder den 
BASIC—Start nach oben verlegen oder das BASIC—Ende nach unten 
legen. Wie macht man das nun ? 

Dazu existieren zwei Zeiger, die jeweils auf BASIC—Start und 
BASIC—Ende zeigen. Die Inhalte dieser Zeiger sind abhängig von der 
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jeweiligen Speicherkon-f iguration und können von Ihnen manipuliert 
werden. 

Dazu sehen wir uns einmal an, welche Werte die Zeiger enthalten: 

PRINT PEEK(43) + 256*PEEK; (44) 

PRINT PEEK(55) 256*PEEK(56) 

Der erste Wert ist der BASIC—Start, der zweite gibt das BASIC—Ende 
an. In der Grundversion würden Sie zum Beispiel 

4097 und 
7680 

erhalten. 

Wollen wir nun Platz -für ein 300—Byte—Maschinenprogramm scha-f-fen, 
so können wir die 300 Byte entweder oben oder unten vom BASIC 
abzweigen. 

Wir wollen jetzt das BASIC-Ende um 300 Bytes nach unten legen. 
Dazu müssen wir von dem oben erhaltenen Wert (7380) 300 abziehen - 

es ergibt sich 7380. Diesen Wert müssen wir nun in den Zeiger 
55/56 schreiben. Dies geschieht -folgendermaßen: 

Der Wert muß in High- und Low-Byte zerlegt werden, was so 
aussieht: 

PÜKE 55, 7380 AND 255 
PÜKE 56, 7380 / 256 

Jetzt müssen wir noch den CLR—Be-fehl eingeben, um die anderen 
BASIC-Zeiger entsprechend zu setzen. Wenn Sie jetzt 

PRINT FRE(O) 

eingeben, werden 300 Byte weniger ausgewiesen. Ihr 

Maschinenprogramm kann jetzt von Adresse 7380 bis 7679 stehen und 
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kann von BASIC nicht mehr erreicht werden. 

Die zweite Alternative ist das Höherlegen des BASIC-Starts. Hier 
können wir ähnlich Vorgehen wie oben. 

Wir addieren jetzt zur Startadresse 4097 unsere 300 und setzen die 
Zeiger neu. 

PÜKE 43, 4397 AND 255 
PÜKE 44, 4397 / 256 

Zusätzlich muß hier noch an die neue Startadresse minus 1 eine 
Null geschrieben werden. 

PÜKE 4397-1,0 

Die anderen Zeiger müssen mit NEW zurückgesetzt werden. 

Jezt kann man das Maschinenprogramm eingeben oder auch von 
Kassette oder Diskette laden. Beim Laden von Maschinenprogrammen 
ist noch zu beachten, daß die Sekundäradresse 1 angegeben wird, da 
das Programm sonst an den BASIC—Start geladen wird. 

LOAD "MASCHINENPRG", 1,1 : REM KASSETTE 
LOAD "MASCHINENPRG", 8,1 : REM DISKETTE 
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5.5 Was die haus kann, kann der Jovstick schon lange 

Eine interessante Amwendung -für den Joystick ist z.ß. eine 
komplette Menusteuerung au-f dem Bildschirm. Durch Bewegen des 
Joysticks kann der Anwender im -folgenden Programm von Feld zu Feld 
wandern und durch Drucken des Feuer knop-fs die entsprechende 
Funktion aus!Ösen. 

10 rem Initialisierung 
20 cu=65520 : rem Cursor setzen 
30 ze=7Bl; sp=782: se=783 

40 z=l: s=l 

50 dd=37154: p1=37151: d 2=37152: gosublOOO 

60 rem cusor au-f mittleres -feld 

70 poke ze,3 : poke sp,0: poke se,0: sys cu 

90 rem hauptsch 1 ei-fe 

100 poke dd,127: pa=peek(p2/ 

110 poke dd,254: pb=peek(pl) 

120 i-f(pb and 4 ) =0thengosub200 : rem oben 

130 i-f (pb and 8 ) =0thengosub300 : rem unten 

140 i-f(pb and 16 ) =0thengosub400 : rem links 

150 i-f(pa and 128) =0thengosub500 : rem rechts 

160 i-f<pb and 32 ) =0then600 : rem knop-f 

170 prinf'il " ; ; pokeze,4-)(-z-*-5: pokesp , 7*s-*-4: pokese.O: syscu 

180 print goto 100 

190 rem bewegen des Cursors 

200 i-f z >0 then z=z-l 

210 return 

300 i-f z<2 then z=z-*-l 
310 return 

400 i-f s>0 then s=s—1 
410 return 

500 i-f ^< 2 . then s=s-*-l 
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510 return 


590 rem aktion bei feuerknop-f 

600 pokeze,16 : poke sp,2 :poke se,0 :sys cu 
610 print "feld ";z*3+s+l : end 
990 rem fei der zeichnen 


1000 print"! - 

—1— 

1 


1010 prinfl 

1 

1 


1020 prinf'l 
lOoO print"!" 

1 

1 

! 

( 

1 


1 

1 


1040 print"! 

1 

1 


1050 print"! 

! 

1 


1060 print"! 

1 

1 

1 

1 

_1 

1070 pr 1 nt p 

1 

1 

1 

1080 print"! 

1 

1 


1090 print"! 

1 

1 


1100 print"! 

1 

1 


1 1 1 O nr-i nk "! _ 

_ 1 _ 



1120 return 


Mit unserem obigen Beispielprogramm simulieren Sie etwas, was in 
den USA z.B. mit dem neuen Apple LISA derzeit als das Nonplusultra 
angeboten wird: die Maus. In unserem Programm wird wieder die 
Cursorsteuerung über SYS-Befehl genutzt. Anstelle der Ausgabe der 
Feldnummer in Zeile 610 können Sie dann Ihre gewünschten Aktionen 
programmieren. 
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5.6 Hardcopy -für den VC—20 


Das -folgende kleine Programm erlaubt es Ihnen, jederzeit den 
Biidschirminhalt Ihres VC-20 au+ einen angeschlossenen Drucker zu 
übertragen. Das kann z.B. beliebiger Text oder eine 
Bildschirmmaske sein. Auch Gra-f i kzei chen werden aut den Drucker 
gebracht. Um die Routine so kurz wie möglich zu halten, wurde 
■folgende Syntax gewählt: 

Sie ö-f-fnen zuerst mit der logischen Filenummer eins (im Programm 
mit 1-f bezeichnet) eine Datei au-f Ihrem Drucker, normalerweise mit 
OPEN 1,4. Dann kann mit SYS 688 eine Hardcopy zum Drucker 
geschickt werden. Anschließend wird der Druckkkanal wie üblich mit 
CLOSE 1 geschlossen. 


130: 

0 2 b 0 




if 

= 

1 

: logische filenummer 

i 4 0; 

0 2 b 0 




er 

= 

13 

; carriage return 

170: 

02 bO 




temp 

= 

$71 

; zeiger fuer ausgabe 

IBO; 

0 2 b 0 




c h k out 

= 

$f f c9 

; ausgabe auf drucker 

19 0: 

0 2 b 0 




bsout 

= 

$f f d2 

: Zeichen drucken 

200: 

02b0 




stop 

= 

$f f el 

; stootaste abfragen 

210; 

02b0 




Store 

= 

$67 


220; 

02b0 




dreh 

= 

$ f f c c 

; ausgabe wieder auf biidschirm 

300: 

02b0 





# = 

688 

; Startadresse 

350: 

02b0 

a9 

00 



1 d a 

#0 


360: 

02b2 

aO 

1 e 



1 d V 

#$le 

; adresse des biidschirm $le00 









; in der grundversion 

370; 

02b4 

85 

71 



sta 

temq 


380: 

02b6 

64 

72 



stv 

temp+l 

; zeiger auf bi1dschirmsoeieher 

420: 

02b8 

a6 

01 



Idx 

If 


430; 

02 ba 

20 

c9 

ii 


jsr 

ch kout 

; ausgabe auf drucker 

440: 

02bci 

a2 

17 



Idx 

#23 

; anzahl der zeiien 

450; 

02bl^ 

a9 

Od 


1 000 

1 da 

#cr 


460: 

02cl 

20 

d2 

■it 


J sr 

bsout 

: neue zeile 

470: 

02c4 

20 

el 

ff 


.isr 

stop 


480; 

02c7 

tO 

2e 



beq 

ex 11 

; stoptaste gedruckt ? 
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4 V 0 : 

0 2 c 9 

aO 




i d V 

#0 


5 0 0; 

0 2 c b 

b 1 

71 


i ood2 

Ida 

(tGmp}.V 

: ZGichGH vom biidschirm holGn 

5iü; 

0 2 c d 

65 

6 7 



sta 

StCCG 


520; 

02cf 

29 

3 + 



and 

#i3t 


5 3 0; 

02d 1 

06 

67 



asi 

storG 


540: 

0 2 d 3 

24 

6 7 



b 11 

storG : 

b 11 dsch1rmcodG in ascci-codG 

550; 

ü2d5 

10 

0 2 



bol 

* + 4 ; 

w a n d G i n 

560; 

0 2d7 

0 9 

80 



ora 

4$ 80 


5 70; 

02d9 

7 0 

02 



bvs 

* + 4 


580; 

02d b 

09 

40 



ora 

#$40 


5v0: 

') 2 d 0 

20< 

d^ 

t + 


15 r 

bsout ; 

und ausQGbGn 

6 fj (.!: 

0 2 e ü 

cS 




1 n V 


soaltGRzabiGr GrhohGn 

6 i 0; 

0 2 e 1 

cO 

16 



CDV 

#22 ; 

schon iGtztG soaitG ? 

620: 

02g 

du 

GÖ 



bHG 

1 OOP 2 


6 3 0: 

02e5 

98 




tva 



640; 

02g6 

18 




cic 



650: 

02e7 

65 

7 1 



ade 

tGmp 


66 0: 

02 e9 

B5 

71 



sta 

tGmp ; 

ZGipGr au+ nachstG zgiIg 

670: 

02Gb 

90 

02 



bcc 

4 + 4 


o8u: 

0 2 G d 

g6 

72 



1 n c 

tGmp +1 


6 9 0: 

02Gt 

ca 




dGX 

: 

schon aliG zGiion ? 

700; 

02+0 

dO 

cd 



bnG 

1 OOP 


7 10: 

02 + 2 

a9 

Od 



Ida 

#cr ; 

HGUG 2G1iG 

720; 

02+4 

20 

d2 

+ + 


isr 

bsout 


730: 

02+ / 

4c 

cc 

+ + 

GX 1 t 

imp 

circh ; 

ausaabG wiGdGr au+ biidschirm 



5.7 Doppelt hohe Zeichendarstellung 


Mit dem folgenden Programm wird eine doppelt hohe Darstellung von 
Zeichen auf dem Bildschirm erreicht. Doch geben Sie zuerst einmal 
folgenden Befehl ein : Poke 36867,47. Sie sind jetzt sicher über— 
rascht, doch keine Sorge.Es handelt sich hier um einen Darstellu— 
ngsmodus,in dem die Zeichen übereinander gezeigt werden. Wenn Sie 
nun eine Taste betätigen,werden Sie bemerken, daß der gedrückte 
Buchstabe nicht auf dem Bildschirm erscheint, sondern immer zwei 
Buchstaben untereinander die nicht zusammengehören. In dem folge 
nden Programm werden wir nun alle Zeichen richtig und auch dop 
pelt hoch darstellen. Dieses Programm ist nur für die Grundve 
rsion des VC-20 gedacht. Wenn Sie diese Programm auf einem 
ausgebauten V/G-20 laufen lassen wollen, müssen Sie die Anweisung 
in Zeile 20 entsprechend der Adresse der Erweiterung ändern. 

Bitte geben Sie das Programm sehr gewissenhaft ein, denn oft sind 
nicht laufende Programme eine Folge fehlerhafter Eingaben. Schon 
eine falsche Zahl in einem POKE-Befehl zum Beispiel kann zum 
Ansprechen eines falscher Speicherzelle und damit zu einem völlig 
unbeabsichigten Resultat führen. Doch nun geben Sie bitte das 
folgende Programm ein und warten nach der Eingabe einen Moment!! 

10 POKE 56,24: POKE 52,24:CLR 
20 CH=32768 

30 FOR X=6144 TO 7147 STEP 2 

40 POKE X,PEEK (CH): POKE X+1,PEEK (CH) 

50 CH=CH+1 : NEXT 
55 POKE 36865,21 
60 POKE 36879,25 
70 POKE 36869,254 
80 POKE 36867,33 
90 PRINT "(CLR/HOME)" 

So, was sagen Sie dazu. Hätten Sie gedacht, daß Ihr V/C-20 in der 
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Lage ist, solche Sachen zu können ? Doch nun noch einmal zu dem 
Proramm- In Zeile 10 wird dem Computer gesagt, an das Ende des 
Speichers zu gehen. In den Zeilen 20-50 wird der Zeichensatz aus 
dem ROM in den RAM geladen. Die Zeile 60 verän dert den 
Bildschirm. Mie Sie sehen ist es gar nicht so schwer, mit dem 
V/C-20 solche Manipulationen zu machen. 


, 5.8 Wie kommen die BITS auf das Band ? 

Das von Commodore verwendete Verfahren zur Kassettenaufzeichnung 
ist PPM, in Neudeutsch PULSE POSITION MODULATION (was ist den 
das??). Der Commodore-Rechner schreibt die Digitalsignale direkt, 
also nicht in Form zweier Tonfrequenzen, auf das Band. Hierbei 
sind 3 verschiedene Zeiten definiert: K = kurz (176 

Mikrosekunden), M = mittel (256 Mikrosekunden), L = lang (336 
Mikrosekunden)- Daraus werden 3 verschiedene Kombinationen 
gebildet, die die folgende Bedeutung haben: LLMM = BYTE; dieser 
Kombination geht jedem BYTE MMKK = 1, KKMM = 0 voraus. 

Das heißt, daß zum Beispiel der Buchstabe "A" auf dem Band wie 
folgt gespeichert wird: 


LLMM MMKK KKMM KKMM KKMM KKMM KKMM MMKK KKMM MMKK 

BYTE 100000101 

BIT NR.O 1 2 3 4 5 6 7 PARITY ODD 

Dies ergibt eine Zeitspanne von 8.96 ms für ein Zeichen. 
Files werden wie folgt abgespeichert: 

Programmfiles Datenfiles 

Programmkopf Filekopf 
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(Start und Endadresse 


(Fi1ename) 


Fi1ename) 

Programmkopf (Wiederholung) Filekopf (Wiederholung) 
Programm (ein Block) 

Programm (Wiederholung) 

Programmfi1 es 
Endblock 

Der Kopf ist wie folgt aufgebaut: 

Startadresse 
Endadresse 

Filename (16 Zeichen) 

Füllzeichen 

Ein Block besteht aus: 

ca.2 sek. Vorspann 
9 BYTES Count Down (^89 $88 .. $81) beim ersten Block 
($09 $08 .. $01) bei Wiederholung 

Daten (bei Datenfiles 192 BYTES bei Programmen) 

Prüfsumme EXÜR-Prüfsumme über die gesamten Daten 
Endmarkierung (LLKKKKKKKKKKKKKKKKKKKK) 

Nachspann 0.16 ms. 

Wichtig ist in diesem Zusammenhang auch, daß das 
Aufzeichnungsverfahren für alle Commodore-Rechner gleich ist. 
Abgesehen von bestimmten programmtechnischen Unterschieden lassen 
sich so Bänder zwischen den Commodore Computern der 
unterschiedlichsten Baureihen austauschen. 


Datenblock 

Datenblock (Wiederholung) 

Datenfi1 es 

Endblock 


00 00 
00 00 

Filename (16 Zeichen) 
Fül1Zeichen 
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5-9 Daten speichern mit der Datasette 


Menn Sie nun schon ein fortgeschrittener Programmierer sind, wer 
den Sie sicher den Wunsch haben auch Daten auf Band zu schreiben 
oder Daten zu lesen. Wir wollen dies nun an folgendem Beispiel 
durchgehen. Bitte vergessen Sie nicht, daß Daten nicht wie ein 
Programm eingelesen werden können, sondern immer nur in 
Verbindung mit einem Hauptprogramm. 

Open A,B,G, "Name" 

Hier wird nun ein logisches File geöffnet, wobei der Name das 
File identifiziert. 

Die verwendeten Variablen (A,B,C) bedeuten: 

A Sucht die Hauptnummer von 1 bis 255. Wenn Ihr Programm mehr 
als ein File braucht, muß Jedes File seine eigene Nummer 
haben. 

B Ist die Adresse der Datasette (=1) 

C Hier wird festgelegt, ob von der Datasette gelesen oder 
geschrieben wird. 

Wenn C=0 wird von der Gassette gelesen. 

Wenn G=1 oder 2 wird auf das Band geschrieben. 


1. Daten auf Band schreiben 


10 OPEN 1,1,1, "TEST DATEN" 
20 FÜR 1=1 TO 10 
30 PRINT #1,1 
40 NEXT 
50 GLOSE 1 
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Dieses Programm erö-f-fnet unter der logischen # 1 ein Datei mit 
dem Namen "TEST DATEN". Es ermöglichte Ihnen au-f das Band zu 
schreiben. Es Herden die Daten eingelesen, danach wird die Datei 
wieder geschlossen. 

2. Lesen von Daten mit GET-Anweisungen (Einzelne Zeichen) 

10 OPEN 1,1,0, "TEST DATEN" 

20 GET #1, D^ 

30 IF ST AND 64 THEN GOTO 60 
40 PRINT D^ 

50 GOTO 20 
60 PRINT D^ 

70 CLGSE 1 

Dieses Programm liest Daten vom Band. Es werden nur einzelne 
Daten eingelesen. Die Anweisung in Zeile 30 sagt dem Rechner 
solange Daten anzunehmen bis keine Daten mehr zur Verfügung 
stehen. Diese Programm ist sehr sinnvoll für diejenigen, die nur 
Zahlen einiesen wollen, also zum Beispiel bei einer 
Kontenabrechnung. 


3. Lesen von Daten mit INPUT—Anweisungen (Mehrere Zeichen) 

10 OPEN 1,1,0, "TEST FILE" 

20 INPUT #1, D^ 

30 IF ST AND 64 THEN GÜT060 
40 PRINT D^ 

50 GOTO 20 
60 PRINT D^ 

70 CLGSE 1 

Mit diesem Programm können Sie Sätze oder ähnliches einiesen, 
also sehr wichtig bei einer Textverarbeitung oder dergleichen Die 
Funktion des Programmes ist die gleiche, wie es bei der GET— 
Anweisung beschrieben wurde. 
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5.10 Steuerung der Datasette per Programm 


Bei dieser Gelegenheit möchten wir nicht vergessen, daß Sie 
natürlich auch die Möglichkeit haben, während des normalen 
Programmablau-Fes den Datenrecorder anlaufen zu lassen. Dies kann 
ganz besonders dann wichtig sein, wenn Sie zu Beispiel ein 
Programm geschrieben haben, und im Anschluß daran ein neues 
Programm geladen werden soll. Dieses kann nötig sein, wenn Sie zu 
Ihrem Programm eine Einleitung machen wollen und in Anschluß 
daran das Hauptprogramm geladen werden soll. Das -folgende 
Programm prüft zunächst, ob eine Bandtaste gedrückt ist. 

(Achtung: der V/C-20 kann zwar prüfen, ob eine Taste gedrückt 
wurde, aber nicht, welche Taste) 

10 A=9*4096-»-256-«-15-«-16 

20 IF PEEK (A) AND 64 THEN 50 

30 PRINT "BITTE BANDTASTE DRÜCKEN" 

40 IF PEEK(A) AND 64 = O THEN 40 
50 X 

Für das in Zeile 50 stehende X geben Sie bitte einen der 
folgenden POKES ein. Je nachdem, welchen Sie benötigen. 


Einschalten des Recorders : POKE 37148,252 
Ausschalten des Recorders : POKE 37148,254 

So nutzen Sie den Joystick in Ihren Programmen 

Der Joystick wird beim V/C-20 an einem neunpol i gen Sockel 
angeschlossen. 
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1 


2 


3 4 


5 


0 0 0 0 0 


0 0 0 0 

6 7 8 9 

An den Anschlüssen 1-4 sind die Leitungen der zMei Ein/Ausgabe— 
Bausteine (6522) angeschlossen. Es -folgt nun eine Tabelle, aus 
der Sie die Bedeutung der einzelnen Pinne ersehen können. Bitte 
schalten Sie Ihren VC—20 aus bevor Sie an dem Anschluß arbeiten, 
ein Kurzschluß hätte -Fatale Folgen, denn der VC—20 ist ein 
hochtechnisches Gerät- 

Dies sind die Anschlüsse am Controller—Port und ihre Bedeutung : 


I I I 
I PIN I SCHALTERBEZ. JÜYS.I 
I I I 


II I 

III = JÜY 0 I 

I I I 


I I I 

I 2 I = JÜY 1 I 

I I I 


I I I 

I 3 I = JÜY 2 I 

I I I 


I I I 

I 4 I = JÜY 3 I 

I I I 


143 








I 

I 

I 

5 

I 

I 

I 

= LEER 

I 

I 

I 

I 


I 


I 

I 

6 

I 

= SCHUBKNÜPF I 

I 


I 


I 

I 


I 


I 

I 

7 

I 

= LEER 

I 

I 




I 

I 


I 


I 

I 

8 

I 

= MASSE 

I 

I 


I 


I 


Die ZMei 6522 VIA-Bausteine haben zwei Ein/Ausgabe Tore. Jedes 
Tor (Tor A, Tor B ) kann unter Zuhilfenahme eines Datenrichtungs— 
registers als Eingabe- oder Ausgabeport geschaltet werden. Gleich 
nachdem Sie den Rechner einschalten, sind alle Partleitungen als 
Eingänge geschaltet. Der Feuerknopf und die Schalter 0,1,2 werden 
über die VIA #1 gelesen. Der Schalter 3 über die VIA #2. 

Die beiden Adressen der Tore sind: 

VIA #1 = ^9110 HEX = 37136 DEZ. 

VIA #2 = :$9120 HEX = 37152 DEZ. 

Wenn Sie nun die folgenden Zeilen eingeben, werden Sie auf Ihrem 
Bildschirm den positiven bzw. negativen Wert jeder 
Joystickstellung angezeigt bekommen. 

10 DIM JS (2,2) :PÜKE 37154,O:PA=37137:PB=37152 
15 DD=37154 
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20 FÜRI= 0TÜ2 : FÜRJ= =TÜ2: READJS (J,I):NEXTJ,I 
30 DATA -23,-22,-21,-1,0,1,21,22,23 
40 GÜSUB 9000 :PRINT JS(X+1,Y+1):GÜTÜ40 
9000 P0KREDD,127:S3=-((PEEK(PB)AND12a)=0):PÜKEDD,255 
9010 P=PEEK(PA):Sl=-((PANDa)=0):S2=((PAND16)=0 
9015 S0=((PAND4)=0) 

9020 FR=-((PAND32)=0):X=S2+S3:Y=S0+S1:RETURN 


Wenn Sie 
einfügen, 
einen Ton 


die Zeilen 20 bis 5a0 in das obenstehende 
werden Sie Jedesmal wenn Sie den Feuerknopf 
aus Ihrem Fernsehlautsprecher hören. 


Programm 
drücken, 


20 DATA 7,0,1,6,S,2,5,4,3 

30 GÜSUB 9000 

40 LET CC=JS (X+1,Y+1) 

90 IF FR=1 THEN GÜSUB 500 
100 GOTO 30 
110 POKE 36077,212 
120 FÜR L= 15 TO O STEP -1 
130 POKE 36070,15 
140 FÜR M=1 TO 10 
150 RETURN 


Nach der Zeile 150 geht es wie im vorherigen Programm weiter. 
Wenn Sie nun den Feuerknöpf drücken und dabei den Regler bewegen, 
bekommen Sie ein anderes Geräusch. Aber was passiert in dem 
Programm ? Die Variable FR ist für den Feuerknopf 
verantwortlich, sie hat immer den Wert O . Aber in dem Moment in 
dem sie gedrückt wird, ändert sich dieser Wert in 1. Bei diesem 
Programm finden Sie die entsprechende Abfrage in Zeile 90. Die 
POKES in den unteren Zeilen werden Sie kennen, sie sind für die 
Lautstärke und den Ton zuständig. 


Wenn Ihnen jedoch diese Abfrage zu lang seien sollte, so sollten 
Sie sich die folgende ansehen. Die Zei1ennummerm 100-500 sollten 
Anweisungen in Ihrem Programm sein. In der Unterroutine wird 
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direkt au-f den schon erwähnten VIA Baustein gesprungen 


1000 GÜSUB 9000 
1010 IF(JS AND4) THEN 100 
1020 IF(JS AND16)THEN 200 
1030 IF(JS AND 128)THEN 300 
1040 IF(JS AND 8) THEN 400 
1050 IF(JS AND32) THEN 500 
1060 GOTO 1000 


9000 PÜKE 37139,0:PÜKE 37154,127 
9010 J1=PEEK (37137) 

9020 J2=PEEK (37152) 

9030 JS=J1ÜRJ2:RETURN 


An der Stelle der zwei Doppelpunkte muß nun Ihr Programm stehen. 
Wobei Sie sich natürlich nicht an die vorgegebenen Zeilennummern 
halten müssen. Bei Programmen die auf (pehrere Bilder zugreifen, 
kann es sinnvoll sein die Joystickroutine mehrmals zu 
wiederholen. Wobei hier natürlich nur der erste Teil von 1000 bis 
1060 gemeint ist. 
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5.11 Abfrage der Paddle—BeMegungen 


Auch die Paddels lassen sich mit einem einfachen PEEK-Befehl 
abfragen- Zwei Speicherstellen des VC—20 enthalten Jeweils den 
digitalisierten Wert der waagerechten bzw. senkrechten Richtung: 

PEEK(36872) Wert der horizontalen Richtung von Obis 255 
PEEK(36873) Wert der vertikalen Richtung von Obis 255 


5.12 Die Programmierung der Funktionstasten 

Der VC—20 hat als einer der ersten Heimcomputern die aus der 
kommerziellen Datenverarbeitung bekannten sehr nützlichen 
Funktionstasten- Die übersichtlich angeordneten Tasten mit den 
Kennzeichnungen F1-F8 haben vom Betriebssystem her beim VC-20 
keine bestimmte Aufgabe. Ihren Sinn erhalten sie erst durch 
entsprechende Anwenderprogramme, die den einzelnen Funktionstas— 
ten bestimmte Funktionen zuweisen. 

Wenn Sie nun die Funktionstasten für Ihr Programm nutzen wollen 
benötigen Sie zunächst einmal die ASCII Werte der Tasten. Das 
folgende Programm zeigt Ihnen den Wert der Taste an, die Sie 
gerade gedrückt haben. 


10 PRINT "( CLR/HÜME)" 

20 GET A^ : IF A^= "" GOTO 20 
30 A= ASC (A^) 

40 PRINT DIESE TASTE HAT DEN ASC II-WERT”;A 
50 GOTO 20 

Die Werte der einzelnen Funktionstasten lauten: 


Fl 

= CHR^ 

(133) 

F2 

= CHR^ 

(137) 

F3 

= CHR^ 

(134) 

F4 

= CHM 

(138) 
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F5 = CHR^ (135) 


F6 = CHR^ (139) 

F7 = CHR^ (136) 

F8 = CHR^ (140) 

So, wie Sie mit der oben aufgeführten Routine den Wert der 
einzelnen Tasten bekommen, können Sie diese Werte auch in Ihr 
Programm einsetzen- Ein Beispiel gibt das folgende Programm: 

5 PÜKE 36879,8 
10 PRINT"(CLR/HÜME)" 

20 PRINT"BITTE GEBEN SIE IHREN TEXT EIN" 

30 PRINT"DIE TEXTEINGABE MIT RETURN ABSCHLIESSEN" 
40 INPUT T^ 

50 PRINT"(CLR/HÜME)" 

100 PRINT"ZEIGE TEXT? DRÜCKE Fl" 

110 GET A$:IF A^O CHR$(133) THENllO 
120 IF A^O CHR^(133) THEN GOTO 130 
130 PRINT"(CLR/HÜME)" 

140 PRINT"RVS ÜN";T$ 

150 PRINT"NEUEN TEXT EINGEBEN? DRÜCKE F3" 

160 GET B$:IF B$<> CHR$(134) THEN G0T0150 
170 PRINT"EINEN MOMENT BITTE" 

180 F0RI=1T03000:NEXT 
190 G0T05 

Wenn Sie das Programm starten, werden Sie aufgefordert einen Text 
einzugeben. Das in Zeile 40 stehende T$ ist die Variable für den 
eingegebenen Text, der in der Zeile 140 wieder ausgegeben wird. 
In den Zeilen 110 und 160 werden die zwei Funktionstasten 
abgefragt. Erst wenn eine der Tasten gedrückt wird geht das 
Programm zur nächsten Anweisung . Dieses ist der große Vorteil 
der "funktionslosen" Funktionstasten, denn Sie müssen sich die 
Vorteile dieser nicht Tasten durch die Aufgabe anderer erkaufen. 
Ein weiter Vorteil ist die übersichtliche Anordnung der 
Funktionstasten in einem Block. Somit können die Funktionstasten 
wesentlich zum Bedienungskomfort eines Programmes beitragen. 
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Noch ein Tip zur Verwendung der Funktionstasten : besonders bei 
komplexen Programmen empfiehlt es sich, stets bestimmte 
Funktionstasten mit den selben Befehlen zu belegen, zum Beispiel: 

F3 = Programmende 

F4 = Eingabe berichtigen 

F7 = Daten abspeichern 

So werden Ihre Programme leichter bedienbar. Ein fremder Anwender 
findet sich dann auch ohne blättern in der Bedienungsanleitung 
gut und schnell zurecht. 


5.13 Wie man Programme vom VC-20 auf CBM-Rechner überträgt 

Es ist hinreichend bekannt, daß VC-20 Kassetten von anderen 
Commodore-Rechnern nicht oder nicht richtig gelesen werden 
können. Hier soll eine Möglichkeit aufgezeigt werden, dies ohne 
großen Aufwand oder Programmierung in Maschinensprache zu tun. 

Für alle, denen die Speicheraufteilung des VC-20 nicht geläufig 
ist, hier eine kurze Zusammenfassung: Der Basic-Bereich beginnt 
bei dem Grundgerät bei ^1000 und reicht bis $1E00, mit 3K-RAM von 
^0400 bis :^1E00, bei mehr als 3K-RAM von $1200 bis $4000, oder 
$6000 bis $8000, je nach Größe der Erweiterung. 

Grundvoraussetzung für eine erfolgreiche Übertragung ist, daß das 
Programm nicht in Maschinensprache-Format auf Kassette 
gespeichert ist. 

Bei diesem Format handelt es sich um ein speziell für den V/C-20 
erfundenes Kassettenformat, das eine Verschiebung des Programmes 
beim Laden verhindert. In diesem Format gespeicherte Programme 
müssen zuerst auf dem VC-20 mit LOAD geladen werden und 
anschliessend mit SAVE wieder auf Band geschrieben werden. Außer— 
dem muß der CBM-Rechner mindestens 4K-Ram mehr haben, als für das 
Programm wirklich benötigt wird. 
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Laden Sie nun das Programm au-f dem CBM-Rechner und geben Sie in 
Zeile 1 die -folgenden Be-fehle ein und starten das Programm mit 
"RUN" : 

A=PEEK(251):B=PEEK(252):PÜKE1025,A:PÜKE1026,B: PÜKE1027,1:PÜKE1028,0 

Löschen Sie jetzt die Zeile 1 

Das Programm be-findet sich nun im Speicher und kann geändert oder 
aber ausge-führt werden. 
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5.14 Programme, die sich selbst starten 


Beim VC—20 gibt es die Möglichkeit, Programme direkt nach dem 
Einschalten automatisch zu starten. Solche Programme 
(Maschinenpro-gramme) müssen im ROM oder EPRÜM Adressbereich von 
^AOOO bis $BFFF liegen. Damit der VC-20 das Autostartprogramm 
erkennt, müssen die ersten 9 BYTES folgendes enthalten: 

^AOOO STARTADRESSE DES PROGRAMMS, LOW BYTE 
^AOOl STARTADRESSE DES PROGRAMMS, HIGH BYTE 
^A002 NMI-VEKTOR (RESTORE), LOW BYTE 
^A003 NMI-VEKTOR, HIGH BYTE 

^A004 - :$A008 ^41, ^30, ^C3, ^C2, ^C2, ^CD TEXT "AO CBM" 


5.15 Programmierung des USER PORT 

Die acht Datenleitungen des USER—PORT können einzeln auf Ein— 
oder Ausgabe programmiert werden. Dazu werden die entsprechenden 
BITS des Datenrichtungsregisters gesetzt (=Ausgang) oder gelöscht 
(=Eingang). Die Adresse des Datenrichtungregister ist 37138. Die 
eigntlichen Daten werden in das Datenregister Adresse 37136 
geschrieben oder von dort gelesen. 

Belegung an der Unterseite des USER-PORTS: 

N und A= GND (Masse), B= CBl, M= CB2, C bis L= PBO bis PB7- 


5.16 Ein Tip zu den Commodore RS-232 Schnittstellen 

Bei den Commodore VC-20 Schnittstellen VC-1011 RS 232 TTY mit 20 
mA Stromschleife und VC-1011 RS 232 Terminal kann es Vorkommen, 
daß Daten verlorengehen. Mit dieser Abfrage vor der Ausgabe eines 
BYTES ist es möglich, diesen Fehler zu korrigieren: 

100 IF (PEEK(37136)AND192) <> 192 THEN 100 
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5.17 So nutzen Sie Ihre Disketten doppelt 


Wie Sie sicher wissen, sind preiswerte Dissketten in der Regel 
nur einseitig beschreibbar. 

Wenn Sie sich Ihre Diskette einmal genau ansehen, werden Sie 
bemerken, daß sich auf der rechten Seite der Diskette eine kleine 
Einbuchtung befindet. Diese Einbuchtung dient der Floppy dazu, 
den Unterschied zwischen einer geschützten, also nicht mehr 
beschreibbaren oder einer beschreibbaren Diskette zu erkennen. 
Drehen Sie Ihre Diskette um und stecken Sie so in das Laufwerk, 
so findet das Laufwerk keine Einbuchtung und geht davon aus, daß 
die Rückseite der Diskette nicht beschreibbar ist. Da bei den 
meisten Diskettenfabrikaten aber auch die Rückseite der einfachen 
Disketten physisch beschreibbar ist, brauchen Sie nur für die 
fehlende Einbuchtung zu sorgen. 

Nehmen Sie nun eine andere Diskette zur Hand, legen sie mit der 
Einbuchtung nach links auf die andere und zeichnen mit einem 
Bleistift vorsichtig die Einbuchtung nach. Jetzt brauchen Sie nur 
noch mit einer Schere die eingezeichnete Einbuchtung 
auszuschneiden. Der Erfolg dieser vielleicht etwas mühsamen 
Ausschneidearbeit wird sich sofort auszahlen, denn sie haben nun 
die doppelte Speicherkapazität auf einer Diskette. Am besten 
rüsten Sie Ihre Disketten vor dem ersten Benutzen um. So 
vermeiden Sie einen Datenverlust durch diese Aktion. Bitte gehen 
Sie in jedem Fall sorgfältig vor und bedenken Sie, daß kein 
Hersteller oder Händler auf entsprechend präparierte Disketten 
mehr Garantie gibt. 

5.18 Basic-Programme mit jeder Erweiterung 

Wer ist nicht erbost, wenn er gerade eine Speichererweiterung 
gekauft hat und zu Hause feststellt, daß seine eigenen Programme 
nicht mehr laufen. Für Ihre eigenen Programme können die 
folgenden Zeilen sehr hilfreich sein. 
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BILDSCHIRM : BS=4*(PEEK(36866)AND128)+64*(PEEK(36869)ANDl20) 


FARBE : FA=4*(PEEK(36866)AND128+37888 

Sie müssen also diese zwei Zeilen in Ihre Programmen einfügen. 
Dieses geschieht am besten am Anfang des Programmes- BS gibt die 
erste Position im Bildschirm-RAM , FA die erste Position im Farb- 
RAM an- Somit können Sie Ihre Programme auf jeder Erweiterung 
laufen lassen- Bitte vergessen Sie nicht, daß Sie diese Zeilen 
natürlich nicht in Maschinenspracheprogrammen anwenden können- 
Alles was Sie nun noch machen müssen ist, für jedes Bildschirm— 
Poke nur PÜKE BS,X und für jeden Bi1dschirm-Poke nur PÜKE BS,X 
eingeben- Das "X" steht für den jeweils dazugehörigen Wert der 
dem Poke folgen soll- Wenn Sie also einen Farb-PÜKE haben, der 
den Bildschirm auf schwarz schaltet, müssen Sie nur PÜKE FA,8 
eingeben- Was macht man aber, wenn man ein 

Maschienenspracheprogramm hat für eine 3K Erweiterung besitzt, 
aber nur eine 16K oder mehr Erweiterung hat- Das folgende kleine 
Programm macht Ihrem OC-20 vor nur eine 3K Erweiterung 
angeschlossen zu haben- Es ist vollkommen egal ob es nun 16 oder 
32K sind- Sie müssen nur vor dem laden des Programms die nun 
folgenden Zeilen eingeben- 

PÜKE 641,0 
PÜKE 642,4 
PÜKE 643,0 
PÜKE 644,30 
PÜKE 648,30 
SYS 64824 

Nun wird auf Ihrem Bildschirm die normale Anzeige einer 3K 
Erweiterung erscheinen und Sie können nun Ihr Programm wie 
gewohnt einladen- Wollen Sie nun nach dem spielen wieder über den 
vollen Speicherplatz verfügen müssen Sie nur SYS 64802 eingeben- 
Nach Eingabe dieses Befehles können sie nun wieder wie gewohnt 
mit Ihren VC-20 arbeiten- 
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5.19 Programme retten bei OUT ÜF MEMORY ERROR 


Sollten Sie grössere Programme schreiben so Merden Sie 
unweigerlich an die Leistungsgrenzen des VC-20 stoßen. Ein 
Zeichen dafür ist, wenn auf den Bildschirm "Out of Memory" 
erscheint. In solchen Fällen heißt es,Ruhe bewahren. Speichern 
Sie das Programm ab, ohne ihm einen Namen zu geben. Geben Sie 
statt "SAVE" nur "S Shift A " ein, somit haben Sie wenigstens Ihr 
schwer erarbeitetes Programm gerettet. Sie können es dann mit 
einer Speichererweiterung wieder einladen. Viel Speicherplatz 
wird auch dadurch verschenkt, daß zwischen den einzelnen Befehlen 
immer eine Leerstelle gelassen wird. Sie können ihre 
Programmschritte also immer ohne Leertaste eingeben. Außerdem ist 
es für den Programmierer wichtig, auch während des Schreibens 
über den noch freien Speicherplatz im Bilde zu sein. Geben Sie 
dazu nur die folgende Zeile ein: PRINT FRE (O) und nach Drücken 
der RETURN Taste werden Sie über den noch freien Speicherplatz 
informiert. 


5.20 Der VC-20 als (scheinbarer) Speicher-Riese 

Sie haben natürlich auch die Möglichkeit,Ihren VC-20 "optisch" zu 
erweitern. Geben Sie bitte die folgenden Zeilen ein und sehen, 
was passiert : POKE 5^,255 danach Return,in die nächste Zeile 
geben Sie bitte folgendes ein: 

SYS 58238 

Na, was sagen Sie dazu! Ist das nicht überraschend, was nun auf 
dem Bildschirm erscheint. Fragen Sie nun noch den freien 
Speicherplatz ab und Sie werden sehen, daß durch die Eingabe 
zweier Befehle der VC-20 "ganz in Ihrer Hand" ist. 

Probieren Sie noch ein bisschen mit anderen Pokes unter 100 oder 
darüber. Sie können Ihr Ergebnis auch gleich durch "? fre (O)" 
abfragen. Viel Spaß I! 
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5.21 Schiebung!! oder wenn der Bildschirm schief steht 

Bei verschieden Graphikprogrammen für den VC-20, die aus den USA 
importiert werden, erleben deutsche VC-20 Besitzer manchmal eine 
kleine Enttäuschung: das Bild steht nicht in der Mitte, sondern 
in der linken oberen Ecke. 

Weniger bekannt ist die Möglichkeit, hier Abhilfe zu schaffen: 
Commodore hat neben anderen Dingen auch einen Video-Controller in 
den VC-20 eingebaut. Diesen mysteriösen Chip können wir hier für 
unsere Zwecke dienstbar machen. Die Basisadresse des 
Videocontrollers ist ^9000. Dies ist auch gleich die Adresse für 
die horizontale Position des Bildes auf dem Bildschirm. In 
dezimal lautet diese Adresse 36864. Ein Register weiter oben, 
nämlich in 36865, befindet sich die vertikale Position des 
Bildes. Zwei einfache PÜKE-Befehle können also das Bild an jede 
Stelle auf dem Bildschirm verschieben. Die richtigen Inhalte für 
diese Register können Sie durch PEEK-Befehle aus den beiden 
Positionen erhalten, zweckmäßigerweise direkt nach dem 
Einschalten. In den folgenden Beispielen wird der Bildschirm 
einmal nach rechts oben und nach links oben verschoben. 


Nach rechts oben: 10 PÜKE 36864,20 

20 PÜKE 36865,20 

Nach links oben 10 PÜKE 36864,10 
20 PÜKE 36864,12 
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Veränderung des Speicherbereichs der 8-Ram Erweiterung 


Die 8-k Erweiterung des VC-20 bietet den großen Vorteil, daß 
man die Möglichkeit hat, verschiedene Speicherbereiche 
einzustellen. Wenn Sie die 8-k Erweiterung zur Hand nehmen, so 
werden Sie -feststellen, daß sie au-f der Rückseite eine 
Kreuzschlitzschraube besitzt. Wenn Sie nun diese herausschrauben, 
können Sie die Erweiterung ö-f-fnen. Sie müssen jedoch beachten, 
daß Sie mit einem Schraubenzieher an den oberen Schlitzen das 
Gehäuse au-f hebeln. Wenn Sie nun die Erweiterung betrachten, werden 
Sie bemerken,daß sich au-f ihr ein Dilboard mit 4 Schaltern 
be-f indet. 



Wenn die Erweiterung aus dem Werk kommt, i st sie au-f -folgenden 
Bereich eingestellt: HEX 2000-3FFF 

DEZ 8192-16383 

Diese Einstellung ist so -für den ausschließlichen Gebrauch der 
8k-Erweiterung gedacht, also ist der 4. Schalter an. 

Wenn Sie zwei 8k-Erweiterungen benutzen, müssen Sie die Schalter 
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wie -folgt einstellen: alle Schalter, bis auf Nr.3 auf aus. Die 
Erweiterung liegt nach dem Umstellen dann in den folgenden 
Bereichen: HEX 4000-5FFF 

DEZ 16384-24575 

Wenn Sie eine Bk Ram Erweiterung zusammen mit einer 16k Ram 
Erweiterung benutzen, müssen Sie alle Schalter, bis auf die Nr-2 
auf aus stellen. Die Erweiterung liegt dann in den folgenden 
Bereichen: HEX 6000-7FFF 

DEZ 24576-32767 

Beim Abspeichern von Maschinenprogrammen ist es sinnvoll, sie in 
einen Bereich zu legen, der vom Basic nicht berührt wird. So 
liegen alle Spielmodule von Commodore in diesem Bereich- Der VC- 
20 zeigt dann die BK Ram nicht mehr als Erweiterung des BASIC— 
Speicherplatzes auf dem Bildschirm, doch das sollte Sie nicht 
weiter beunruhigen. Um die Erweiterung in den Maschinensprache- 
Bereich zu legen, müssen Sie alle Schalter, bis auf die Nr.1,auf 
aus stellen. Die Erweiterung liegt dann in den folgenden 
Bereichen: HEX AOOO-BFFF 

DEZ 40960-49151 

Sie haben auch bei der 16K Erweiterung die Möglichkeit, ein 
Dilboard einzubauen,um sie in andere Bereiche zu legen. Bei der 
16K Erweiterung ändern sich die Adressen wie folgt : Anfang 
Bildschirm von 7680 auf 4096 und der Anfang des Färb—Ram von 
38400 auf 37888. Dieses ist bitte zu beachten. Wenn Sie nun zwei 
16K-Erweiterungen einstecken, werden Ihnen die zusätzlichen 16k 
nicht angezeigt. Sie können sie aber für Ihre Programme, die Sie 
in Maschinensprache, geschrieben haben nutzen, aber nur unter 
der Vorausetzung, daß Sie die oben genannten Dilschalter auch 
eingesetzt haben. 
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5.23 Disk Menü 


Wer kennt nicht das Problem, das sich ergibt wenn man mit der 
Diskettenstation arbeitet. Es fängt an beim Formatieren der Dis¬ 
ketten und hört auf beim Säubern der Disketten. Das folgende 
Programm nun soll Ihnen helfen besser und leichter mit Ihrer 
Diskettenstation unzugehen. Wenn Sie das Programm eingegeben 
haben speichern Sie es auf einer neuen formatierten Diskette ab. 
Das Programm ist so aufgebaut, daß Sie sobald Sie mit einer neuen 
Diskette arbeiten erst das Menü enladen und sich dann über das 
Menü den Inhalt der Diskette ansehen können. Sie brauchen beim 
Umgang mit den Programm nichts zu beachten. Sie wählen nur unter 
der entsprechenden Nummer nur den von gewünschten Teil ein und 
das Programm führt ihn aus. 

Doch nun zur Programmerklärung. Sobald Sie das Porgramm mit RUN 
gestartet haben, erscheint eine Maske auf dem Bildschirm (Zeile 
30 bis 160). In der Zeile 190 ist eine INPUT Anweisung, je nach 
Eingabe die Sie machen wählt das Programm einen anderen 
Programmteil an. Dieses können Sie in der Zeile 200 nachlesen. 
Wenn Sie sich nun die einzelen Unterroutinen ansehen, werden sie 
bemerken das hier nur die Ihnen schon bekannten Diskettenbefehle 
eingebunden sind. Bitte geben Sie das Programm sehr gewissenhaft 
ein, den nur so können Sie einen fehlerfreien Ablauf erreichen. 
Es wurden absichtlich keine Frabpokes gesetzt, denn jeder 
Programmierer hat da seine eigenen Vorstellungen. Diese Farbpokes 
werden in die Zeile 10 gesetzt. Doch nun folgt das Listing des 
hier besprochenen Programmnes. 
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10 pr in-fc^'ä" ;rem; hier koennen sie die +arbrookes se-fczen 
20 prin'f'S Disk. Menue " 

30 r^rin-fc"-" 

40 prini; 

50 pr i ni;" 1 =D i sk Director-d " 

55 prin-fc"2=drucke Directory " 

60 pr in't"3=-torma.'t iere Disk" 

70 prin-t"4=ini-tialisiere Disk" 

Ö0 prin-t"5=copiere Fi le" 

90 prin-t"6=umbenenneri Fi le " 

100 prin-t"7= loesche File " 

110 r^r in-t"8=Diske-t-te saeubern" 

120 r«>r-i n-t" 9=schre i be Menue " 

130 prin-t"10=Disk S-ta-tus " 

135 pr i n-t" 11 = lade Programm " 

140 »c.rin-t"12= ^ndelS 
150 r^r i ni; 

160 p^rini;"-" iprini; 

170 pr i n^t" SB i -t^te waeh len 13" 

190 inpu-t choise 

200 on choise gosub 250.. 800j 300,350^ 400^ 450^ 500^ 550.600.. 650^ 900.. 700 
210 go-tol0 

250 prin-fä" 

251 open 1,. 8.. 0, 

252 ge-t #l,a:^,b:^ 

254 ge-t #l..a:^,b:^ 

256 ge-t # 1.. a^, b:^ 

258 c=0 : i-ta;$:<>" "-then c=asc<Ca.;^> 

260 i-tb:^<>" "-then c=c+ascCb^>3*f256 

262 prin-t"B "mid:^<s-tr:^v;c> .. 2> ;-tab< 1 > " " .; 

264 ge-t # 1, b:^ : i-f=s-t<:>0-then282 
266 i-f=b:^<>chr:^<:34>-then264 

268 ge-t #l,b:^:i-t b:^<>chr:^<34> -then prin-tb^.; ;go-to268 
270 ge-t #1.. b:^;i-f= b:^=chr:^<32:5 -then 270 
272 pr i n-t-tab <10.^; : c:^= " " 

274 c^=c^-»-b:^:ge-t#l ..b:^ = i-f b:^<>" "-then274 
276 prin-t-tab< 18> "B " le-f-t:^Cc^,3> 

280 i-t s-t=0 -then 254 
282 prin-t"BB locks -trei " 

284 c lose 1 : pr i n-t: pr i n-t: pr i n-t" druecke B^e-turnä -tuer Menue " ; : i npu-tx^ : rr -turn 
300 pr i n-t" ä" : pr i n-t: pr i n-t 
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3£iS prin-fSDiske-fc-fee +uers -f=ormai-tieren ein le«=iena“ ^prin-fc 

310 pr inf'lt ingabe des Diske-fc-fcen—Ha/nen d";rinpu-t disk^rpmn-t 

320 pr in-fc"^inojafcte der Diske-t-fcen-Nr. a" ;:inpu-fc ex-fc:$: 

325 rnauzr o:$:= " n : " +d i sk^+ " .. '* 

330 open 15.8,. 15. maxzro:$: 

340 c lose 15 ;riia.cro:$:=’"':re-fcurn 


350 pr i ni:" ä" : pr i ni;: pr i ni: 

360 prin'fc"SDiske'fc'te ein legen zum ini'fcia.lisierenjS" ^pr^ini; 

370 pr in'fdruecke Ä^e'fcurnjS -Huer Ini'bia.lisierung" : inpu'bx^ 
380 open 15.8,15,"i" 

390 dose 15:re-burn 
400 pr 1 ni;" ä" : i ni;: pr i n± 

410 pr in-t"Bzopiere File <Hajvie>ia ";:inpu-fc d i sk:$:: pr i n'b 

420 prinHt"Steuer File Harne Ü ‘'.;;inpu-fc nws:$: 

425 riia.cro4:= " c : ” -»-nijus:^:-»-" = " +ci i sk:$: 

4 50 open 15,8, 15. riiacro:$: 

440 c lose 15 :ma.cro^=" " ire'burn 
450 pr inf'ia" :pr in-t ;pr in-fc 

460 prin-fc"]tingaioe des al'fcen Fi lena/nenä" ; : mpui; disk^rprin'b 
470 prin'f'SEingaliie des neuen Fi lenajnenä” ; : inpui; nujs:$: 

475 maxiro:$:="r : "+nujs:$:-»-'' = "-»-disk:$: 


480 open 15,8, 15 , rMa.cro:$: 


490 


500 

510 

511 
■- 1 : 

513 

514 

515 

516 

517 


519 

520 
530 
53:5 
540 


c lose 15 : ma^zr 0 :$:= " " : re-turn 
print" ä" :print:print 

pr inttato<2> ” Bioesche File <Hajrien>a" : input diskfrpnnt 

Äi" 

m m" 

m:‘ 

Ä" :print 

!•"• f -I i 'i ^ " 

goto1000 

rr 1 nttah«: 2> “Wadruecke Return ja" ;:input 

macro:$:= " s ; " +ci i sk:$: 
open 15.. 8.. 15.. macro^t: 
c lose 15:macro^="":return 


tori=1to5:print;next:rem:poke tuer tartoe 

pr inttaJD< 2?J ^ ^ 


2 > 
2 > ' 


pr inttai?»; 
pr inttab<; 
pr inttab':!2;' ” 
pr* i nttalD < 2 > " 


m m 


m m 


550 pr int"ä" ipr'int :pr int 

560 pr'int Hchtung Bottene Files wer^den ge loescht^“ :pr int :pr int 

570 pr i nt "Bdr-'uecke (.return> tuer Disketten—Saeutoerung iJ''.r:input x^ 

580 open 1,8,15,"u" 

590 c lose Irreturn 

600 pr'int"gj" rpr-int rpr^int 160 




610 rc‘r'in+‘' 3 schr'"eibe neues MenueiJ" :pr in-t 
620 pr-i n-h "3::JruecU:e Re+urn iJ" ; : in^-u-t x:^ 

625 open 1.. 8.15 

630 sa.Me "Menue" . 8 

635 c lose 1 

640 re+ur^n 

650 open 1.8.15 

660 i npL4-fc# 1 . a.j. b c.. d 

670 pr i n*fc " ä" : pr i n-fc : pr i n-b 

680 prin-b"ff^eh ler S-fca.-fcusiJ" :print :pr in-fc"B^eh ler # 3'';a. 

681 pnint'’55pun JS"c ^ " BSector ij" ;d 

685 print;print"S0 = kein Fehler" 

690 c lose 1 : pr i nt : pr i nt: pr i nt "druecke B^eturniJ tuer Nenue “ ; zi nputx:^ : return 

700 print" ä" :tori = 1to10: print:next 

710 printtab<;3> H c h t u n -3 

720 print 

725 pr intta>?<3> "3 Menue Ende Sj 

730 end 

800 open4.. 4.7 

810 print"ä":tori= 1 to 10 :print:next 

850 pr int"SDrucka.usgabe Directory^" 

851 openl , 8 .0 , 

852 get # 1.. . b:^: 

854 ^et #l .a;$:,b:^ 

356 ciet #1. aJ: ..b:^ 

858 c=0 : i ta.:J:0 " " then c=asc c. a.:^: > 

860 itb:^<>""then c=c+ascCb:^>5ff256 

861 pr int#4.. ehr<27> ; "d" ;ehr•:*:< 10 > ;ehr^:< 0 > ; 

862 pr i nt#4 . m i d:^: < str< e > .. 2 > ehr:^: < 9 > " " ; 

864 ' 3 et #1 ^ b:^ : i tstO0then882 

866 i tb:J:C>ehr< 34 > then864 

867 pr i nt#4 ^ ehr:^ < 2 7 > ; " d " ehr< 25 > ehr< 0 > ; 

868 get # 1 .. b:t::it b:fOehr:$:<:54> then pr int#4.. b:f ; :oioto368 

870 ^et #l.bi::it b4:=ehr4:<32;> then 870 

871 pr i nt#4.. ehr:^: < 27 > " d " ehr< 18 > ; ehr:*: <; 0 > ; 

872 pr i nt#4, ehr:^ < 9 > ; : e:^= " " 

874 e:^=e:^+b:^ : oiet# 1, b:^ : i t b:^<> •' " then874 

875 pr int#4.. ehr4:<27> "d" ;:ehr:*:<35> ;ehr^:< 0> ; 

876 pr i nt#4.. ehr< 9 > lett:^ < e:*: ^ 3 > 

880 it st=0 then 854 

881 print#4.. ehr4:<27> ; "d" ;ehr4:< 10> ^ehr4:<0> ; 

802 print#4.. " B loeks trei":elose 4 

884 e lose 1 : pr i nt : pr i nt: pr i nt " drueeke Ä^eturniJ tuer Menue " ; : i nputx:*:: return 
900 Oio:^=ehr < 34 > 
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910 i npui;" Iches Prooirajuimä" |oro:$ 

920 |or- i load " oio$ ; pr.; oio^" .. 8 " 

930 |or in-fc"HHHÖ~un" 

990 -f or i = 1 -fco6 : |ooke622+ i , 13 r nex-fc : poke 156.6 

999 end 

1000 |or i n-fc'tab (! 2 > " Korrek-fcur " ; : 

1010 in|ou‘tko:$ 

1015 i-fko:^0" j "ar>dko^<>"n"-then|or :^o-tol000 

1020 i-fko:$=" j "■bhenoio-fco500 
1030 i-fko^="n"-thengo-to520 
1040 end 
ready. 
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5.24 Der Trick mit dem LIST 


Wen ärgert es nicht, daf3 man bei der Korrektur von Programmen ein 
'sehr schnelles Auge' braucht um die Änderungen auch schnell und 
sicher durchführen zu können. Denn Sie werden schon gemerkt 
haben, daß beim LIST-Befehl die einzelnen Zeilen recht schnell 
durchlaufen, so daß es durchaus pasieren kann, daß man ein paar 
Fehler innerhalb des Programmes übersieht. 

Auch die Verwendung der CTRL-Taste während des LIST hat nur eine 
schwache Verzögerung zur Folge, die für eine genaue Betrachtung 
der Zeile nicht ausreicht- 

Es gibt aber einen Trick mit dem man den Ablauf des LIST Befehls 
sehr verlangsamen, ja sogar anhalten kann. Hierzu dient eine 
bestimmte Speicherstelle des VC-20, die nur selten dokumentiert 
wird. Es handelt sich hierbei um die Adresse 37879. Durch 
Veränderung des Wertes in dieser Adresse kann die Uhr des VC-20 
schneller oder langsamer gemacht werden. So wird z.B. durch ein 
POKE 37879,0 die Uhr ca. 60 mal schneller als normal. Das hat zur 
Folge, daß beim LIST der Durchlauf sehr verlangsamt wird. Durch 
drücken der SHIFT-Taste wird jede Zeile recht gut lesbar. Drückt 
man dann noch die CTRL-Taste, so wird der Durchlauf ganz 
angehalten. Ansonsten läßt sich die Änderung jeder Zeile bzw. der 
Abbruch durch RUN/STOP wie gehabt durchführen. 

Ein Effekt dieses POKEs ist außerdem das schnellere Blinken des 
Cursors und die schnellere Bewegung des Cursors über den 
Bildschirm. Wird der SUPER EXPANDER verwendet, so werden auch 
verschiedene Grafik-Befehle langsamer ausgeführt. 
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5-25 Unnew 


Haben Sie auch schon einmal aus Versehen ein Programm mit "NEW" 
gelöscht, ohne es vorher abgespeichert zu haben? 

Dann ist das folgenden Porgramm genau richtig für Sie. 

Das Wesen des "NEW"-Befehls ist es, daß nicht wie vielleicht zu 
vermuten ist, der gesamte Speicher gelöscht wird, sondern nur die 
BASIC—Zeiger zurück gesetzt werden. Aus diesem Grund ist es kein 
größeres Problem, diesen Befehl wieder rückgängig zu machen. 
Wichtig ist nur, daß Sie keine neuen Variablen nach dem "NEW"— 
Befehl benutzt haben. 

Das Programm liegt wieder im Kassettenpuffer und wird einfach mit 
SYS 828 gestartet. Anscchließend ist Ihr BASIC-Programm wieder 
vorhanden. 


180 

033C 





.□PT 

PI 

£00 

033C 





* = 

828 

210 

033C 

R5 

28 



LDA 

$28 

220 

033E 

A4 

2C 



LDY 

$2C 

230 

0340 

85 

22 



STA 

$22 

240 

0342 

84 

23 



STY 

$23 

250 

0344 

A0 

03 



LDY 

♦♦3 

260 

0346 

C8 



NULL 

INY 


270 

0347 

81 

22 



LDA 

< $22 >,Y 

280 

0348 

D0 

F8 



6NE 

NULL 

280 

0348 

C8 




INY 


280 

034C 

38 




TYA 


280 

0340 

18 




CLC 


300 

034E 

65 

22 



ADC 

$22 

310 

0350 

A0 

00 



LDY 

#0 

320 

0352 

3 1 

28 



STA 

($28),Y 

330 

0354 

A5 

23 



LDA 

$22 + 1 

340 

0356 

68 

00 



ADC 

«0 

350 

0358 

C8 




INY 


360 

0358 

3 1 

28 



STA 

< $28),Y 

370 

0358 

88 




DEY 


380 

035C 

A2 

03 


T0 

LDX 

«3 

380 

035E 

E6 

22 


TORE 10 

INC 

$22 

400 

0360 

D0 

02 



6NE 

* + 4 

410 

0362 

E6 

23 

• 


INC 

$22 +1 

420 

0364 

81 

22 



LDA 

( $22),Y 

430 

0366 

D0 

F4 



6NE 

T0 

440 

0368 

CA 




DEX 


450 

0368 

00 

F3 



8 NE 

TDREI0 

460 

0368 

A5 

22 



LDA 

$22 

470 

0360 

68 

02 



ADC 

«2 

480 

036F 

85 

20 



STA 

$2D 

480 

0371 

A5 

23 



LDA 

$22 + 1 

500 

0373 

68 

00 



ADC 

«0 

510 

0375 

85 

2E 



STA 

$2E 

520 

0377 

20 

63 

A6 


JSR 

$A663 

530 

037A 

4C 

67 

E4 


JMP 

$E467 
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KAPITEL 6 


BASIC-ERWEITERUNGEN UND TOKENS 


Um Ihren VC-20 richtig zu verstehen, müssen Sie sich natürlich 
auch mit dem Aufbau der verschiedenen Routinen, die für das 
eigentliche interpretiern zuständig sein, auskennen. Dazu ist es 
wichtig zu wissen, in welcher Form das BASIC Programm 
abgespeichert wird, und wie es modifiziert werden kann. Der erste 
Schritt dazu, ist die Kenntnis der sogenannten TOKEN. 


6.1 TOKENS - Was ist das ? 

Wie Sie wissen werden, kann jeder Computer, auch Ihr VC-20, nur 
mit Zahlen umgehen. Genauer gesagt mit 2 Zahlen: 0 und 1. Diese 
elektrische Zustände bilden zusammen eine Information. Geben Sie 
also den Befehl PRINT ein, so kann der Computer diese Buchstaben— 
kombination überhaupt nicht verstehen. Er muß diesen Befehl in 
eine Zahl umwandeln. Anderes ist das mit dem Teil nach PRINT. 
Steht dort zum Beispiel irgendein Satz, der also auf dem 
Bildschirm ausgegeben werden soll, so wandelt der Computer nicht 
den ganzen Satz in eine Zahl um, sondern Zeichen für Zeichen. Im 
Speicher wird also für den Befehl PRINT genauso viel Platz 
benötigt, wie für ein einfaches 'A'. Die Zahl, die aus dem Befehl 
PRINT errechnet wurde nennt man TOKEN. Jeder BASIC-Befehl, jede 
Funktion und jedes Sonderzeichen, ist so als Zahl zu kodieren. Um 
nun später den Aufbau einer BASIC-Zeile zu verstehen, müssen wir 
uns an dieser Stelle mit den TOKEN beschäftigen. 

Auf der nächsten Seite nun, folgt eine Tabelle sämtlicher TOKEN. 
Auf ihre Anwendung kommen wir später noch. 

Liste aller TOKEN 


128 

END 

160 

CLOSE 

192 

TAN 

129 

FOR 

161 

GET 

193 

ATN 

130 

NEXT 

162 

NEW 

194 

PEEK 
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131 

DATA 

163 

TAB( 

195 

LEN 

132 

INPUT# 

164 

TO 

196 

STR^ 

133 

INPUT 

165 

FN 

197 

VAL 

134 

DIM 

166 

SPC( 

198 

ASC 

135 

READ 

167 

THEN 

199 

CHR^^ 

136 

LET 

168 

NOT 

200 

LEFT^ 

137 

GOTO 

169 

STEP 

201 

RIGHTS 

138 

RUN 

170 

+ 

202 

MID^ 

139 

IF 

171 

- 

203 - 

- 254 unbenutzt 

140 

RESTORE 

172 

* 

255 

(PI) 

141 

GOSUB 

173 

/ 



142 

RETURN 

174 




143 

REM 

175 

AND 



144 

STOP 

176 

OR 



145 

ÜN 

177 

> 



146 

WAIT 

178 

= 



147 

LOAD 

179 

< 



148 

SAVE 

180 

SGN 



149 

VERIFY 

181 

INT 



150 

DEF 

182 

ABS 



151 

POKE 

183 

USR 



152 

PRINT# 

184 

FRE 



153 

PRINT 

185 

POS 



154 

CONT 

186 

SQR 



155 

LIST 

187 

RND 



156 

CLR 

188 

LOG 



157 

CMD 

189 

EXP 



158 

SYS 

190 

COS 



159 

□PEN 

191 

SIN 



An Hand dieser 

Tabelle. 

kann man nun 

leicht 

Jedes beleihe 


Programm analysieren. Dazu ist es allerdings notwendig, etwas in 
Maschinensprache zu arbeiten. Sie können ein BASIC Programm auf 
zwei verschiedene Art und Weise analysieren. Die einfachste 
Möglichkeit ist die Anschaffung eines sogenannten Monitors. Mit 
diesem Monitor können Sie nun leicht jede Adresse des V/C-20 
ausleisten, seine Register überwachen, Programme laden und 
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Speichern, Programme verändern und vieles mehr. Die zweite 
Möglichkeit wäre, mit der PEEK-Funktion Wert -für Wert aus dem 
Speicher zu lesen und au-f Bildschirm oder Drucker auszugeben. 
Danach könnten mögliche Änderungen mit dem POKE-Be-fehl 
durchge-führt werden. Aber Vorsicht! Ein BASIC-Programm kann durch 
solche Änderungen, wenn diese nicht korrekt sind, au-f leichte Art 
und Weise zerschgossen werden. 

Sehen wir uns zunächst einmal den Au-fbau einer BASIC-Zaile an. Um 
an die Adresse der ersten BASIC-Zeile zu gelangen, müssen Sie die 
Werte in den Adressen 4097 und 4098 auswerten. 

X=PEEK (4097) +256->^PEEK ( 4098) 

Ein Ausgabe mit dem Monitor könnte -folgendermaßen aussehen: 

.: 1000 00 10 10 OA 00 99 22 56 
.: 1008 43 2D 32 30 22 3A 80 00 
. : 1010 00 00 xx xx xx xx xx 

Was bedeuten nun die einzelnen Speicherplätze ? Die erste Adresse 
ist jeweils der Speicherplatz, an der die einzelnen Werte stehen. 
Da es sich hier um ein BASIC-Programm handelt, ist diese Adresse 
:t:1000 oder dezimal 4096. Danach steht die eigentliche 
Verbindungsadresse zwischen erster und nächster Programmzeile. In 
unserem Beispiel bedeutet das, daß die nächste Programmzeile bei 
der Adresse i^lOlO oder dezimal 4112 beginnt. Die nächste Adresse 
stellt die verwendete Zeilennumer dar. Hier lautet sie $0A oder 
dezimal 10. Danach -folgen die oben besprochenen TOKENS. Die Zeile 
endet mit dem Wert 0. Nach diesem Zeilenende könnte das Programm 
mit einer neuen Zeilennummer normal weitergehen. In unserem 
Beispiel steht hier die Adresse 0. Diese Adresse sagt dem BASIC- 
Interpreter, der die ganze Zeile abarbeitet, daß hier das 
Programm beendet ist. 

In BASIC würde das oben angegebene Beispiel so aussehen: 
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10 PRINT "VC-20 


Der reine Anwender wird mit diesen Informationen vielleicht noch 
nicht so viel anfangen können- Aber derjenige, der seinen 
Computer von "Anfang bis Ende" kennen will, der wird rasch die 
Möglichkeiten entdecken, die mit diesen Kenntnissen aufgedeckt 
werden- 

Auf den nächsten Seiten finden Sie nun noch eine Reihe 
erstklassiger BASIC-Erweiterungen - also Maschinenprogramme, die 
dem Programmierer sehr nützlich sein können. Lassen Sie sich von 
diesen Ideen inspirieren und entwickeln Sie selbst einmal 
Maschinenprogramme, oder beschäftigen Sie sich an einem 
regnerischen Tag doch einmal ausführlich mit dem BASIC des VC-20. 
Sie werden sehen, wie schnell auch Sie zu einem VC—20 Experten 
werden. 
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6.2 Append - BASIC-Programme werden verbunden 


Sicher haben Sie auch schon das Problem gehabt, daß Sie zwei 
BASIC-Programme aneinanderfügen wollten. Vielleicht haben Sie den 
Trick mit dem Bildschirmeditor benutzt ( Zeilen auf dem 
Bildschirm stehen lassen, zweites Programm laden und die Zeilen 
auf dem Bildschirm wieder einiesen). Dieses Verfahren hat aber 
den besonderen Nachteil, daß die Anzahl der Zeilen auf die 
Kapazität des Bildschirms beschränkt ist. Wir wollen Ihnen nun 
ein Verfahren zeigen, mit dem Sie beliebig lange Programme 
verbinden können. 

Bei diesem Verfahren wird ein reines Anhängen durchgeführt. Dies 
bedeutet, daß das nachgeladene Programm größere Zeilennummern 
haben muß als das erste Programm. Sie können sich also nun eine 
Unterprogrammbibliothek aufbauen. Dabei sollten die 

Unterprogramme möglichst große Zeilennummern haben. Doch nun 
genug der Vorrede, wie fügen Sie nun BASIC-Programme aneinander? 
Tippen Sie zuerst Ihr nachzuladendes Programm ein und speichern 
Sie es auf Kassette oder Diskette ab. Nun tippen Sie ihr zweites 
Programm ein. Nur dieses Programm befindet sich nun in Ihrem 
Rechner. Tippen Sie nun die folgende Zeile ein: 

PRINT PEEK(43),PEEK(44) 


Geben Sie diese Zeile unbedingt im Direktmodus ein. Sie dürfen 
von jetzt an bis zum Abschluß des Aneinanderfügens keine 
Änderungen am Programm vornehmen oder eine Variable benutzen! Sie 
haben mit der obigen Zeile zwei Werte erhalten. Dies sind die 
Startadressen für Ihr BASIC-Programm. Schreiben Sie sich diese 
beiden Zahlen auf, sie brauchen Sie gleich noch. 

Die Adresse des Ende Ihres BASIC-Programms steht in den 
Speicherstellen 45 und 46. Der Wert dieser beiden Speicherstellen 
wird nun in die Speicherstellen 43 und 44 geschrieben. Dies 
bedeutet praktisch, daß der BASIC-Start an das Ende Ihres alten 
Programms gelegt wird. Wir machen uns nun zu Nutze, daß der VC—20 
BASIC-Programme immer an die Adresse verschiebt, die in den 
Adressen 43 und 44 steht. Beachten müssen wir noch, daß der 
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BASIC-Interpreter am Ende der letzten Programmzeile zwei Nullen 
schreibt um das Ende des Programms zu kennzeichnen. Aas diesem 
Grund müssen wir die Adresse aus 45 und 46 um zwei vermindern und 
dann in die Speicherstel1en 43 und 46 schreiben. Tippen sie nun 
ein: 

PÜKE43, (PEEK (45) -h256*PEEK (46) -2) AND255 
PÜKE44, (PEEK (45) -h256*PEEK (46) -2) /256 

Damit haben Sie nun den BASIC-Start verlegt. Nun können Sie das 
zweite Programm nachladen: 

LüAD"name" 

Wenn Sie nun LIST eintippen, sehen Sie nur das zweite Programm- 
Tippen Sie nun in die Speicherstel1en 43 und 44 die 
aufgeschriebenen Werte ein: 

PÜKE43,... 

PÜKE44,... 

Nun sind Ihre beiden Programme aneinandergefügt. Wenn Sie LIST 
eintippen, sehen Sie beide Programme fein säuberlich auf dem 
BiIdschirm. 
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6.3 AUTO - automatische Zei1ennumerierung 


Wir wollen Ihnen nun noch ein kleines BASIC-Programm zeigen, daß 
Ihnen viel Tipparbeit ersparen wird. Das Programm erzeugt 
automatisch Zeilennummern. Sie geben die Nummer der Startzeile 
ein und anschließend die Schrittweite der Zeilen. 

Von nun an wird nach Jedem Drücken der RETURN-Taste eine neue 
Zeilennummer erzeugt. Das Programm sieht folgendermaßen aus: 

0 INPUT"START";S:INPUT"SOHRITTWEITEW:POKEl002,W 

1 POKEIOOO,INT(S/256):POKElOOl,S-INT(S/256)*256 

2 PRINTS; 

3 WAIT198, 1:GETA^:PRINTA^; : IFA^OCHR^ (13) THEN3 

4 PRINT"RUNS":FÜRI=631TÜ634:POKE1,145:NEXT: P0KE635,13:P0KE636,13 
:POKEl98,6:END 

5 PRINTCHR^(145);" ":PRINT:PRINT" ";CHR^(145); 

CHR^(145);CHR^(145) 

6 S=PEEK(1000)*256+PEEK(1001)+PEEK(1002):GOTOl 

Zeile 0 fragt die Startzeile und die Schrittweite ab. Die 
Schrittweite wird in der Speicherstelle 1002 sofort 

zwischengespeichert. Die Startzeile wird in Zeile 1 ebenfalls 
abgespeichert und ausgedruckt. In Zeile 3 werden nun die Eingaben 
eingelesen, bis Sie die RETURN-Taste betätigen. In Zeile 4 wird 
nun zuerst "RUNS" ausgedruckt, dann viermal CURSOR-hoch und zwei¬ 
mal Carriage-Return in den Tastaturpuffer geschriöben. Dadurch 
wird zuerst die eingetippte Zeile eingelesen und anschließend 
Zeile 5 gestartet. In dieser Zeile werden nun das "RUNS" und die 
READY-Meldüng gelöscht. Dann wird in Zeile 6 die Variable S mit 
der neuen Zeilennummer belegt und wieder in Zeile 1 verzweigt, wo 
diese Zeilennummer wieder abgespeichert und ausgedruckt wird. 
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6-4 INPUT - Strings >88 Zeichen ei niesen 


Nenn Sie mit der Floppy arbeiten, wird sicher, besonders im 
kommerziellen Bereich, eine der Hautpaufgaben das Einlesen von 
Informationen sein. Diese Informationen sind meistens Strings, 
wie A^, u.s.w. Das BASIC des VC-20 hat hierfür mehrere Befehle 
vorgesehen. Das Schreiben eines Strings in eine Datei, egal ob 
relative oder sequentielle, geschieht mit dem Befehl 'PRINT#' 

Ein Beispiel soll dies verdeutlichen: 

Sie haben eine Adressenliste. Eine gesamte Adresse steht in einer 
Stringvariablen, alle Adressen in einem Array, z.B. A$. Nun 
möchten Sie diese auf Diskette in einem sequentiellen File 
abspeichern. Gehen wir davon aus, daß Sie 100 Adressen haben. Das 
folgende kleine BASIC-Programm würde dies übernehmen: 

10 OPEN 1,8,2,"ADRESSEN,S,W" 

20 FÜR 1=1 Tü 100 
30 PRINT#1,A^(I) 

40 NEXT I 
50 CLÜSE 1 


Nach Ausführung dieses Programms sind Ihre Adressen auf Diskette 
in dem sequentiellen File 'ADRESSEN' gespeichert. 

Mir gehen davon aus, daß eine einzelne Adresse ca. 130 Zeichen 
enthält. 

Analog zum 'PRINT#'-Befeh1 existiert der 'INPUT#'-Befeh1. Mit 
diesem Befehl ist es möglich, Strings wieder einzulesen. Es steht 
also zu vermuten, daß ein analoges Programm zu dem obigen die 
Daten wieder einliest. Ein solches Programm könnte nun so 
aussehen: 

10 DIM A^(IOO) 

20 OPEN 1,8,2,"ADRESSEN,S,R" 

30 FÜR 1=1 Tü 100 
40 INPUT#1,A^(I) 

50 NEXT I 
60 CLÜSEl 
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Dieses Programm funktioniert aber leider nur, solange die 
einzelnen Strings nicht länger als 88 Zeichen sind. Dies ist aber 
leider nur in den wenigsten Fällen der Fall. 

Der Grund für dieses etwas seltsame Verhalten liegt darin, daß 
die Daten, die von der Diskette kommen, zuerst einmal in einem 
Zwischenspeicher aufbewahrt werden. Dies wäre ja nicht so 
schlimm, hätte dieser Speicher nicht die maximale Größe von 88 
Zeichen. Erhält der Rechner von der Floppy Strings, die länger 
als 88 Zeichen sind, so ergibt sich ein 'STRING Tüü LONG ERROR'. 
Ein weiterer Nachteil des 'INPUT#'-BefehIs ist, daß der 
Doppelpunkt und das Komma als Endezeichen erkannt werden. Somit 
ist es nicht möglich, diese Zeichen innerhalb eines Strings 
mitabzuspeiehern. 

Eine Möglichkeit, diese Nachteile zu umgehen, bietet der 'GET#'- 
Befehl. Mit diesem Befehl können Sie ein einzelnes Zeichen von 
der Floppy herunterholen. Ein BASIC—Programm, daß ohne Fehler 
läuft, wäre nun das Folgende: 

10 DIM A^(IOO):1=1 

20 OPEN 1,8,2,"ADRESSEN,S,R" 

30 GET#1,Z^:IFZ^=13THEN50 
40 A^(I)=A^(I) + Z^:GÜTÜ30 
50 IF 1=100 THEN CLÜSE 1 : END 
60 I=I + 1 : GOTO 30 

Dieses Programm liest Ihre Adressen nun wieder richtig ein. Es 
hat jedoch zwei gewichtige Nachteile. Zum ersten ist es sehr 
langsam, zum anderen belastet es durch die umfangreichen 
Stringoperationen sehr die Garbage—collection—Routine. Um dies 
alles zu umgehen, bleibt uns nichts anderes übrig, als eine 
kleine Routine zu schreiben, die uns den 'INPUT#'—Befehl ersetzt. 
Diese kleine Maschinenspracheprogramm gestattet es, einen String 
beliebiger Länge mit allen Zeichen einzulesen. Aufgerufen wird 
die Routine mit : 
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SYS ADRESSE, VARIABLE, LäNGE DES STRINGS, FILENUMMER 


- ADRESSE : Dies ist die Startadresse des Programms 

- VARIABLE : Dies ist die Stringvariable, in die die Zeichen 

von der Floppy eingelesen werden sollen. 

- LäNGE : Dies ist die Anzahl der Zeichen, die eingelesen 

werden sol1. 

- FILENUMMER: Dies ist die Nummer, mit der das File eröffnet 

wurde. 

Bewährt hat sich diese Routine besonders bei relativen Dateien. 
Sie ist schnell und vergeudet keinen Speicherplatz 

Ein Programm, daß diese Routine benutzt, könnte dann so aussehen: 

10 DIM A^(IOO) 

20 OPEN 1,8,2,"ADRESSEN,S,R" 

30 FGR 1=1 TG 100 
40 SYS 828,Z^,130,1 
50 A^(I)=Z^ : GET#1,Z^ 

60 NEXT I 
70 CLGSE 1 

ln diesem Fall wurde angenommen, daß das Programm bei der Adresse 
828 liegt, und die Datensätze alle die Länge von 130 Zeichen 
haben. 

Auf der folgenden Seite finden Sie das Assemb1er1isting zu dem 
Programm, assembliert für den Speicherbereich ab 828. 
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90: 033C .OPT PI 

; INPUT« 

; AUFRUF MIT SYS ADR,VAR IABLE,LAENGE,FILENUMMER 


300: 

033C 




CHKCDM 

= 

SCEFD 


KDMMA 

310: 

033C 




GETVAR 

= 

$D08B 



330: 

033C 




FRESTR 

= 

«06A3 



330: 

033C 




GETBYT 


$D79E 



340: 

033C 




STRRES 

= 

«D47D 


STRING RESERVIEREN 

350: 

033C 




STRADR 

= 

$63 



353: 

033C 




SETSTR 

= 

$D475 



355: 

033C 




DESCRPT 

= 

$64 



360: 

033C 




TEMP 

= 

$FB 



370: 

033C 




TEMP3 

= 

$FC 



380: 

033C 




CHKIN 

= 

$FFC6 



390: 

033C 




BASIN 

= 

$FFCF 



395: 

033C 




CLRCH 

= 

$FFCC 



300: 

033C 





*= 

$033C 



310: 

033C 

30 

FD 

CE 


JSR 

CHKCDM 



330: 

033F 

30 

88 

D0 


JSR 

GETVAR 

; 

VARIABLE HDLEN 

335: 

0343 

48 




PHA 




335: 

0343 

98 




TYA 




335: 

0344 

48 




PHA 




330: 

0345 

30 

A3 

D6 


JSR 

FRESTR 



340: 

0348 

30 

FD 

CE 


JSR 

CHKCDM 



350: 

0348 

30 

9E 

D7 


JSR 

GETBYT 

; 

LAENGE IN X-REGISTER 

3B5: 

034E 

68 




PLA 




3B5: 

034F 

85 

65 



STA 

DESCRPT 

+ 

1 

367: 

0351 

68 




PLA 




367: 

0353 

85 

64 



STA 

DESCRPT 



368: 

0354 

8A 




TXA 



LAENGE IN AKKU 

389: 

0355 

85 

FC 



STA 

TEMP3 



380: 

0357 

30 

75 

D4 


JSR 

SETSTR 


PLATZ FUER STRING RESERVIEREN 

381 : 

035A 

84 

FB 



STY 

TEMP 



381 : 

035C 

A0 

00 



LDY 

«0 



381 : 

035E 

91 

64 



STA 

( DESCRPT) 

,Y 

381 : 

0360 

C8 




INY 




381 : 

0361 

BA 




TXA 
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381 : 

0398 

91 

64 


5 TA 

< DE5CRPT),Y 

381: 

0384 

C8 



INY 


388: 

0385 

A5 

FB 


LDA 

TEMP 

388: 

0367 

91 

64 


5 TA 

< DE5CRPT) ,Y 

380: 

0369 

80 

FD 

CE 

JSR 

CHKCOM 

395: 

036C 

A0 

01 


LDY 

ni 

395: 

036E 

81 

64 


LOA 

< DE5CRPT),Y 

395: 

0370 

48 



PHA 


395: 

0371 

C8 



INY 


395: 

0378 

81 

64 


LOA 

< DE5CRPT) ,Y 

395: 

0374 

48 



PHA 


400: 

0375 

80 

9E 

07 

J5R 

6ETBYT ; FILENUr»flvER HOLEN 

405: 

0378 

80 

C6 

FF 

J5R 

CHKIN 

410: 

0378 

68 



PLA 


410: 

037C 

85 

65 


5 TA 

DE5CRPT+1 

410: 

037E 

68 



PLA 


410: 

037F 

85 

64 


5 TA 

DE5CRPT 

430: 

0381 

1=10 

00 


LDY 

nQ 

433: 

0383 

80 

CF 

FF LOOP 

J5R 

BA6IN 

440: 

0386 

91 

64 


5 TA 

<DE5CRPT),Y ; 5TRIN6 ERSTELLEN 

450: 

0388 

C8 



INY 


450: 

0389 

C4 

FC 


CPY 

TEMP8 

450: 

0388 

□0 

F6 


BNE 

LOOP 

480: 

0380 

4C 

CC 

FF 

JMP 

CLRCH 
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6.5 STRINGS 


Die Stringverarbeitung im BASIC des VC—20 ist nicht gerade 
reichhaltig und komfortabel ausgefallen. Aus diesem Grund stellen 
wir Ihnen in diesem und dem nächsten Abschnitt zwei Programme 
vor, die dieses Manko etwas lindern. Der erste neue Befehl 
eröffnet die Möglichkeit, einen String beliebiger Länge zu 
erzeugen. 

Natürlich können Sie dies auch von BASIC mit einer kleinen 
Routine simulieren, z.B.: 

10 A^="E" 

20 FÜR 1=1 Tü 10 : B^=B^+A^ : NEXT I 

Das Ergebnis dieses Programms ist ein String, bestehend aus 10 
mal dem Buchstaben 'B'. Dieses Verfahren hat jedoch wieder zwei 
gravierende Nachteile. Uie immer im Vergleich zu Maschinensprache 
ist dieses Verfahren erheblich zeitaufwendiger. Der zweite 
Nachteil ist die übergroße Belastung der Garbage—collection. 
Gerade in dem nicht sehr großen Speicherbereich des VC—20 macht 
sich diese Routine bei häufiger Stringverarbeitung sehr schnell 
und oft in längeren Wartezeiten bemerkbar. 

Aufgerufen wird die Routine wie folgt : 

SYS ADRESSE,VARIABLE,LäNGE,ASCII-CODE DES ZEICHENS 

Ein Beispiel dazu wäre : 

SYS 828,B^,10,69 

Dieser Aufruf bewirkt das Gleiche wie das vorstehende BASIC- 
Programm. 

Auf der folgenden Seite nun das Assemblerlisting zu dieser 
Routine. 
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033C 


OPT PI 


£ 

90: 


; STRING* 

; AUFRUF MIT SYS ADR,VAR IABLE,LAENGE,ASC11-CODE DES ZEICHE 


£00: 

033C 




CHKCOM 

= 

*CEFD 


KOMMA 

£10: 

033C 




6ETVAR 

= 

*D08B 



££0: 

033C 




FRESTR 

= 

*DGA3 



£30: 

033C 




6ETBYT 

= 

*D79E 



£40: 

033C 




STRRES 

= 

*D47D 

; 

STRING RESERVIEREN 

£50: 

033C 




STRADR 

= 

*B£ 



£5£: 

033C 




SETSTR 

= 

*0475 



£55: 

033C 




DESCRPT 

= 

*64 



£B0: 

033C 




TEMP 

= 

*FB 



300: 

033C 





*= 

*033C 



310: 

033C 

£0 

FD 

CE 


JSR 

CHKCOM 



3£0: 

033F 

£0 

88 

D0 


JSR 

GETVAR 


VARIABLE HOLEN 

3£5: 

034£ 

48 




PHA 




3£5: 

0343 

98 




TYA 




3£5: 

0344 

48 




PHA 




330: 

0345 

£0 

A3 

D6 


JSR 

FRESTR 



340: 

0348 

£0 

FD 

CE 


JSR 

CHKCOM 



350: 

0348 

£0 

9E 

D7 


JSR 

GETBYT 

; 

LAENGE IN X-REGISTER 

3G5: 

034E 

68 




PLA 




3G5: 

034F 

85 

65 



STA 

DESCRPT 

+ 

1 

3G7: 

0351 

68 




PLA 




3G7: 

035£ 

85 

64 



STA 

DESCRPT 



368: 

0354 

8A 




TXA 



LAENGE 

370: 

0355 

48 




PHA 


; 

LAENGE AUF STACK 

380: 

035B 

£0 

75 

D4 


JSR 

SETSTR 


PLATZ FUER STRING RESERVIEREN 

381 : 

0359 

84 

FB 



STY 

TEMP 



381 : 

0358 

A0 

00 



LDY 

#0 



381 : 

035D 

91 

64 



STA 

< DESCRPT) 

,Y 

381 : 

035F 

C8 




INY 




381 : 

0360 

8A 




TXA 





177 



381 : 

0361 

9 1 

64 


STA 

< DESCRPT),Y 

381 : 

0363 

C8 



INY 


388! 

0364 

A5 

FB 


LDA 

TEMP 

388! 

0366 

91 

64 


STA 

( DESCRPT),Y 

390! 

0368 

80 

FD 

CE 

JSR 

CHKCDM 

395! 

0366 

1=10 

01 


LDY 


395! 

036D 

81 

64 


LDA 

C DESCRPT) ,Y 

395! 

036F 

48 



PHA 


395! 

0370 

C8 



INY 


395: 

0371 

Bl 

84 


LDA 

(DESCRPT),Y 

395! 

0373 

48 



PHA 


400: 

0374 

80 

9E 

D7 

JSR 

GETBYT ; FUELLZEICHEN HDLEN 

410: 

0377 

68 



PLA 


410: 

0378 

85 

65 


STA 

DESCRPT+1 

410: 

037A 

68 



PLA 


410: 

0376 

85 

64 


STA 

DESCRPT 

480: 

037D 

68 



PLA 


480: 

037E 

1=18 



TAY 

; LAENGE IN Y-REGISTER 

430: 

037F 

8A 



TXA 

; FUELLZEICHEN IN AKKU 

440: 

0380 

88 


LOOP 

DEY 


440: 

0381 

91 

64 


STA 

<DESCRPT),Y ; STRING ERSTELLEN 

450: 

0383 

□ 0 

FB 


BNE 

LDOP 

460: 

0385 

60 



RTS 

' 
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6-6 Erweiterung des MID^-Be-fehls 


Das Programm, das wir Ihnen nun varstellen wallen, stellt eine 
sehr nützliche Erweiterung des MID^-Be-fehls dar- 

Uenn Sie bisher ein oder mehrere Zeichen in einem String ändern 
wallten, hatten Sie keinen anderen Ueg, als eine umständliche 
Konstruktion über LEFT^ und RIGHTS zu nehmen. Ein Beispiel dazu: 

Nehmen wir an. Sie haben folgenden String : 

A^="ABCDEFGGJ KLMN" 

Sie möchten nun den achten Buchstaben in ein 'I' ändern. Dies 
müßten Sie so machen: 

A^ = LEFT^(A^,7)+"I"+RIGHT^(A^,6) 

Dies ist ja noch eine recht einfache Formel- Kompliziert wird die 
Angelegenheit, wenn Sie diese Farmei al1gemeingülig auch für 
mehrere Zeichen machen wollen. Nehmen wir an, der zu verändernde 
String steht in A^, der einzusetzende String in B^, die Position 
in PG- Die Formel sieht dann folgendermaßen aus: 

A^ = LEFT^(A^,PÜ-1)+B^+RIGHT^(A^,LEN(A^)-LEN(B^)-PÜ+1) 

Diese Farmei sieht schon etwas mächtiger aus. Stellen Sie sich 
nun noch vor. Sie haben indizierte Variablen und Sie werden 
Schwierigkeiten bekommen, dies alles in eine Zeile zu packen. Und 
dies alles nur, weil ein Ausdruck wie 

MID^(A^,PG-1,LEN(B^))=B^ 

nicht erlaubt ist! Diesem übel werden wir nun schnellstens 
Abhilfe schaffen- Auf den nächsten beiden Seiten finden Sie das 
Assemblerlisting zu dem Programm. Dieses Programm muß lediglich 
durch SYS 828 einmal initialisiert werden. Dann sind Befehle wie 
der Gbenstehende erlaubt. 
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90: 


200 : 

210 : 

220 : 

230: 

240: 

250: 

255: 

260: 

270: 

280: 

290: 

300: 

310: 

320: 

325: 

330: 

340: 

350: 

352: 

355: 

360: 

370: 

372: 

375: 

378: 

390: 
400 : 
410: 
420: 
430: 
440: 
450: 
460: 
470: 
480: 


033C 


.□PT PI 

; MID* RL3 P3EUD0VRRIRBLE 


; MID*<3TRINGVftRIRBLE,PG3ITIGN,LRENGE) = 3TRINGftU3DRUCK 
; MID*<3TRINGVRRIRBLE,PD3ITIDN) = 3TRIN6AU3DRUCK 


033C 




MIDCDDE 

= 

*CA 

033C 




EXECUT 

= 

*308 ; 

033C 




CHRGET 

= 

*73 

033C 




CHRGOT 

= 

CHRGET + 6 

033C 




EXECDLD 

= 

*C7E7 

033C 




VARNAM 

= 

*45 

033C 




VARADR 

= 

*49 

033C 




DE3CRPT 


*64 

033C 




TE3T3TR 

= 

*CD8F 

033C 




GETVAR 

= 

*O08B 

033C 




3ET3TR 

= 

*CA52 

033C 




CHKAUF 

= 

*CEFA 

033C 




CHKZU 

= 

*CEF7 

033C 




CHKCDM 

= 

*CEFD ; 

033C 




TE3T 

= 

*CEFF 

033C 




GETBYT 

= 

*D79E 

033C 




FRMEVL 

= 

*CD9E 

033C 




ILLQUAN 

= 

*0248 

033C 




FRE3TR 

= 

*D6A3 

0003 





*= 

3 

0004 




LAENGE 

* = 

*+ 1 

0005 




PD3ITIDN 

* = 

* + l 

0007 




VARSTR 

* = 

*+2 

0007 




GLEICH 

= 

*82 

0007 




ZEIG2 

= 

*50 

033C 





*= 

828 

033C 

A9 

47 


INIT 

LDA 

♦♦<MIDTE3T 

033E 

A0 

03 



LDY 

♦♦>MIDTE3T 

0340 

8D 

08 

03 


3TA 

EXECUT 

0343 

8C 

09 

03 


3TY 

EXECUT+1 

0346 

60 




RTS 


0347 

20 

73 

00 

MIDTE3T 

J3R 

CHRGET 

034A 

C9 

CA 



CMP 

♦♦MIDCDDE 

034C 

F0 

06 



BEQ 

MID3TR ; 

034E 

20 

79 

00 


J3R 

CHRGOT 


VECTGR FUER 3TATEMENT ftU3FUEHREN 


KLRMMER AUF 
KLAMMER ZU 
KOMviA 


; CDDE FUER MID* 
JA 
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NORMALES STATEMENT AUSFUEHREN 


490: 

0351 

4C 

E7 

C7 


JMP 

EXECOLD ; NORMALES STATEMENT AUSFUEHREN 

500: 

0354 

20 

73 

00 

MIDSTR 

JSR 

CHRGET ; NAECHSTES ZEICHEN 

505: 

0357 

20 

FA 

CE 


JSR 

CHKAUF ; KLAMMER AUF 

510: 

035A 

20 

88 

D0 


JSR 

GETVAR ; VARIABLE HOLEN 

520: 

035D 

85 

64 



STA 

DESCRPT 

530: 

035F 

84 

65 



STY 

DESCRPT+1 

535: 

036 1 

95 

49 



STA 

VARADR 

535: 

0363 

84 

4A 



STY 

VARADR+1 

540 : 

0365 

20 

A3 

D6 


JSR 

FRESTR 

545: 

0368 

A0 

00 



LDY 


545: 

036A 

Bl 

64 



LDA 

< DESCRPT )rY 

545: 

036C 

48 




PHA 

; LAENGE 

545: 

036D 

F0 

2E 



BEQ 

ILL 

550: 

036F 

20 

52 

CA 


JSR 

SETSTR ; STRING IN RAM UEBERTRAGEN 

560: 

0372 

A0 

01 



LDY 


560: 

0374 

81 

49 



LDA 

< VARADR) ,Y 

560: 

0376 

85 

05 



STA 

VARSTR ; VARIABLENADRESSE MERKEN 

570: 

0378 

C8 




INY 


570: 

0379 

81 

49 



LDA 

< VARADR),Y 

570: 

037B 

85 

06 



STA 

VARSTR+1 

600: 

037D 

20 

FD 

CE 


JSR 

CHKCOM 

610: 

0380 

20 

9E 

D7 


JSR 

GETBYT ; POSITION HOLEN 

620: 

0383 

8A 




TXA 


630: 

0384 

F0 

17 



BEQ 

ILL 

650: 

0386 

CA 




DEX 


650: 

0387 

86 

04 



STX 

POSITION 

660: 

0389 

20 

79 

00 


JSR 

CHRGOT 

660: 

038C 

C9 

29 



CMP 

♦♦")- ; AUSDRUCK ZU ENDE 

665: 

038E 

□ 0 

04 



BNE 

NEXT 

665: 

0390 

A9 

FF 



LDA 

USFF ; MAX. LAENGE 

665: 

0392 

□0 

0C 



BNE 

STORE 

670: 

0394 

20 

FD 

CE 

NEXT 

JSR 

CHKCOM 

670: 

0397 

20 

9E 

D7 


JSR 

GETBYT ; LAENGE HOLEN 

680: 

039A 

8A 




TXA 


690: 

0398 

D0 

03 



BNE 

* + 5 

700: 

039D 

4C 

48 

D2 

ILL 

JMP 

ILLQUAN 

710: 

03A0 

85 

03 


STORE 

STA 

LAENGE 
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715: 

03ft2 

68 




PLft 


715: 

03A3 

38 




SEC 


715: 

03R4 

E5 

04 



SBC 

PDSITIDN 

717: 

03A6 

C5 

03 



C^P 

LAENGE 

717: 

03ft8 

80 

02 



BCS 

DK 

717: 

03RR 

85 

03 



STA 

LAENGE 

720: 

03RC 

20 

F7 

CE 

GK 

JSR 

CHKZU ; KLAMMER ZU 

730: 

03ftF 

R9 

82 



LDA 

«GLEICH 

770: 

0381 

20 

FF 

CE 


JSR 

TEST 

780: 

0384 

20 

9E 

CD 


JSR 

FRMEVL ; AUSDRUCK HDLEN 

790: 

0387 

20 

R3 

D6 


JSR 

FRESTR 

800: 

03Bft 

R0 

02 



LDY 

«2 

800: 

03BC 

Bl 

64 



LDA 

< DESCRPT),Y 

800: 

03BE 

85 

51 



STA 

ZEIG2+1 

800: 

03C0 

88 




GEY 


800: 

03C1 

Bl 

64 



LDA 

< DESCRPT) ,Y 

800: 

03C3 

85 

50 



STA 

ZEIG2 

810: 

03C5 

88 




GEY 


810: 

03C6 

Bl 

64 



LDA 

< DESCRPT),Y 

820: 

03C8 

F0 

D3 



BEQ 

ILL ; NULL DANN FEHLER 

840: 

03CR 

C5 

03 



CMP 

LAENGE ^ 

850: 

03CC 

80 

02 



BCS 

DKl 

860: 

03CE 

85 

03 



STA 

LAENGE 

870: 

03D0 

R5 

05 


□ Kl 

LDA 

VARSTR 

880: 

03D2 

18 




CLC 


880: 

03D3 

65 

04 



ADC 

PDSITIDN 

910: 

03D5 

85 

05 



STA 

VARSTR 

910: 

03D7 

90 

02 



BCC 

*+4 

920: 

03D9 

E6 

06 



INC 

VARSTR+1 

940: 

03DB 

R4 

03 



LDY 

LAENGE 

950: 

03DD 

88 



LGGP 

GEY 


950: 

03DE 

Bl 

50 



LDA 

<ZEIG2),Y ; ZEICHEN AUS STRINGAUSDRUCK 

960: 

03E0 

91 

05 



STA 

<VARSTR),Y ; IN STR INGVARIABLE UEBERTRAGEN 

970: 

03E2 

C0 

00 



CPY 

«0 

970: 

03E4 

D0 

F7 



BNE 

LDDP 

980: 

03E6 

4C 

RE 

C7 


JMP 

$C7AE ; ZUR INTERPRETERSCHLEIFE 
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6.7 Der PGP-Befehl 


In vielen BASIC—Dialekten gibt es den sogenannten POP—Befehl- Er 
ermöglicht es, ein Unterprogramm zu verlassen, ohne den 'Return 
Befehl zu benutzen. Dies ist zwar auch ohne den POP—Befehl 
grundsätzlich möglich, hat jedoch den unschönen Nebeneffekt, daß 
die Rücksprungadressen der GÜSUB—Routine nicht vom Stack entfernt 
werden. Wenn Sie oft auf diese Weise aus einem Unterprogramm 
herausspringen, wird die Folge ein 'OUT ÜF MEMORY ERROR' sein. 
Der Grund dafür ist, daß der Stack übergelaufen ist- 
Das folgende Programm tut nichts anderes, als 5 Bytes vom Stack 
zu entfernen. Rufen Sie dieses Programm jedesmal auf, bevor Sie 
ein Unterprogramm mit einem 'GOTO'—Befehl verlassen. 


; POP-BEFEHL 

; AUFRUF MIT SYS 828 


180: 

033C 




. OFT 

PI 

200: 

033C 




*= 

828 

205: 

033C 

68 



PLA 


205: 

033D 

68 



PLA 


210: 

033E 

AS 

FF 


LDA 

#255 

220: 

0340 

85 

4A 


STA 

«4A 

230: 

0342 

20 

8A 

C3 

JSR 

*C38A 

240: 

0345 

C9 

8D 


CMP 

#141 

250: 

0347 

F0 

05 


BEQ 

GEFUNDEN 

260: 

0348 

A2 

0C 


LDX 

#12 

270: 

0348 

4C 

37 

C4 

JMP 

$C437 

280: 

034E 

9A 



GEFUNDEN TXS 


280: 

034F 

68 



PLA 


300: 

0350 

68 



PLA 


310: 

0351 

68 



PLA 


320: 

0352 

68 



PLA 


330: 

0353 

68 



PLA 


340: 

0354 

4C 

AE 

C7 

JMP 

^7AE 


183 



KAPITEL 7 : ANWENDUNGSPROGRAMMIERUNG FÜR FORTGESCHRITTENE 


In diesem Kapitel wollen wir Ihnen eine Reihe von Tips der 
Programmierung - an Hand von ausführlichen Beispielsprogrammen - 
geben. Diese Programme können von Ihnen eingegeben werden und 
verschiedene Aufgaben lösen. Das erste Programm ist zum Beispiel 
ein Programm zur Lagerhaltung. Jeder, der beispielsweise ein 
kleines Geschäft hat, kann mit diesem Programm seinen 
Steuerberater etwas entlasten. Es berechnet die Anzahl der 
einzelnen Artikel, ihre Einkaufs- und Verkaufspreise und 
natürlich die Mehrwertsteuer. So wissen Sie auf Knopfdruck "was 
die Stunde geschlagen hat". Danach beschreiben wir das Prinzip 
der Textverarbeitung. Hier können wir nur die Grundzüge dieses 
wohl aufwendigsten Thema der EDV erläutern. Aber Sie werden 
schnell hinter die Idee des Texteinlesens, Analysieren und 
Ausgeben kommen. Am Schluß dieses Kapitels finden Sie ein 
weiteres Programm. Diesmal was für die Spielfreudigen unter den 
Lesern. Suchen Sie Gold in einem Bergwerk - passen Sie aber auf, 
daß Sie nicht in einem Wassereinbruch geraten, oder durch einen 
Stollen fallen. 

All diese Programme sollen zwar dem Anwender erst einmal Freude 
an einem fertigen Programm bringen - sie sind in erster Linie 
dazu gedacht, den interessierten Anwender die Möglichkeiten von 
Dateiverwaltung, Tastaturabfrage, Farbe, Graphik usw. des VC-20 
verdeutlichen. Daher haben wir uns bemüht, jedes Programm so 
ausführlich wie möglich zu beschreiben. Sollten Sie denoch Fragen 
haben, so wenden Sie sich doch an uns. Aber zunächst sollten Sie 
erst einmal versuchen zu verstehen, was wir da programmiert 
haben. Ein bisschen Ahnung von BASIC gehört zwar schon dazu — 
aber auch der absolute Anfänger kann an Hand dieser Programme 
sehr viel nützliches lernen. 

7.1 Der Umgang mit Daten 
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Ein sehr wichtiges Thema in der EDV ist au-f Jedem Gerät, ob groß, 
ob klein, der Umgang mit Daten und Dateien. Wir haben nun ein 
Programm entworfen, das Ihnen einen Großteil an Tips und Tricks 
bei der Programmierung einer Dateiverwaltung demonstriert. Dieses 
Programm erlaubt es verschiedene Artikel zu erfassen, die 
Einkaufs- oder Verkaufszahlen einzugeben und danach die Summen 
auszugeben. Dieses Programm benötigt, um ordnungsgemäß zu laufen, 
die 16K Erweiterung. Außerdem wird eine Floppy-Station benötigt 
und der Seikosha Drucker GP/lOO VC. 

Nun aber zuerst etwas über die Möglichkeiten der verschiedenen 
Dateiverwaltungsarten. Die bekannteste Art und Weise Daten zu 
lesen und zu schreiben, ist die sequentielle Datei. Dieses 
Verfahren, ist übernommen wurden, aus der Zeit, als auch die 
größeren Computer hauptsächlich mit Bandlaufwerken benutzt 
wurden. Um den Unterschied zwischen Platten- und Bandlaufwerken 
zu begreifen, stellen Sie sich am besten einen normalen 
Kassettenrecorder und auf der anderen Seite den Plattenspieler 
vor. Um nun an ein bestimmtes Musikstück zu gelangen, so ist es 
bei einem Bandlaufwerk notwendig, erst einmal an den Anfang des 
Bandes zu Spulen. Dann wird das Zählwerk auf 0 gestellt und es 
kann begonnen werden, an die Stelle zu fahren, an der das 
Musikstück beginnt (wir gehen davon aus, daß die Zählwerksziffern 
bei Jedem neuen Musikstück bekannt sind). Erst dann kann man der 
Musik lauschen. Bei einem PIatenspieler dagegen, haben wir die 
Möglichkeit den Plattenarm direkt auf den Anfang des Musikstückes 
zu setzen - sofern man die Rillen sehen kann. 

Dieses Verständnis kann man auch bei Datasette und Floppy 
anwenden. Es ist klar, daß man bei einer Datasette nur Date für 
Date lesen kann - also sequentiell - nicht aber einen speziellen 
Satz. über das Lesen und Schreiben von Daten mit Hilfe des 
Kassettenrecorders, können Sie in dem entsprechenden Kapitel in 
diesem Buch nachlesen. 

Wir wollen uns an dieser Stelle nur mit der Floppy beschäftigen. 
Denn wer richtige Datenverwaltung betreiben will, der kommt um 
dieses schnelle Speichermedium nicht herum. 
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Auch bei der Floppy müssen wir, wie schon oben erwähnt, zwischen 
sequentiellen und relative Datei unterscheiden. Den Begriff 
"sequentiell" haben wir schon beschrieben - es beduetet eben: 
nacheinander. Was aber bedeutet nun "relativ". Dieses Wort kennen 
wir schon aus unserem normalen Wortschatz. Direkt umgesetzt auf 
die EDV bedeutet dies: abhängig von der momentanen Position. 

Wir haben eben gesehen, daß wir beim Bandlaufwerk erst an den 
Anfang spulen mußten, um einen bestimmten "Satz", also eine Menge 
von Daten, zu lesen. Eine relative Datei ist hier viel flexibler. 
Bei ihr ist es möglich, abhängig von der momentanen Position des 
Lesekopfes, Sätze zu lesen. Verdeutlicht an einem Beispiel: 

Auf einer Diskette befinden sich 100 Sätze. Aus dieser Menge 
wollen wir nun den 78ten Satz lesen. Bei einer sequentiellen 
Datei hieße das, erst alle 77 davor liegenden Sätze zu lesen, um 
dann endlich an den 78ten Satz zu gelangen. Was das für ein 
Zeitaufwand bedeutet, können Sie sich wohl vorstellen. Denken wir 
dann noch daran, mehrere Sätze zu vergleichen oder zu sortieren, 
so wäre dies für einen schnellen Programmablauf völlig 
ungeeignet. Zu diesem Schluß kamen auch die verschiedenen 
Computerhersteller. Das Ergebnis ist die relative Datei. Dort 
kann ich nun einfach sagen: Lese den 78ten Satz. Der Computer 
berechnet nun selbstständig, um wieviele Sätze vor— oder 
zurückgeblättert werden muß, um diesen Satz zu lesen. Durch diese 
revolutionäre Erfindung, war es nun möglich den Zeitfaktor, um 
einen bestimmten Satz zu lesen, auf ein Minimum zu reduzieren. 

Beim VC-20 gibt es allerdings ein paar Sachen, auf die bei der 
Programmierung von Dateien zu achten ist. So verfügt das BASIC 
des VC-20, im Unterschied zu dem BASIC-4 der großen Commodore 
Computer, nicht über Befehle, die es ermöglichen relative Dateien 
zu verwalten. 

Glücklicherweise gibt es ein paar Tricks, die es ermöglichen, 
trotzdem mit relativen Dateien zu arbeiten. So verfügt ja 
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bekanntlich die Floppy über ein eigenes Betriebssystem. Das 
Problem besteht eigentlich nur darin. Befehle, die die relativen 
Dateien verwalten, dem Floppy mitzuteilen. Dazu dient aber der 
Kommando (oder Befehls-) Kanal des VC-20 (Kanal 15). 

Zunächst wird die Datei, von der Daten gelesen oder in die Daten 
geschrieben werden sollen, geöffnet. Von BASIC sieht das so aus: 

□PEN Datei#, Geräte#, Kanal#,"NAME,L,"+CHR$(Länge) 

oder an einem konkreten Beispiel (s. Programm): 

□PEN 1,8,1,"O:ARTDAT,L,"+CHR^(64) 

Dieser Befehl öffnet die Datei 1, mit dem Namen "ARTDAT", der 
Gerätenummer 8 (Floppy) und dem Kanal 1. Das Wichtigste an diesem 
Befehl ist aber die Länge der Datei. Sie ist in unserem Beispiel 
mit 64 angegeben. Anders als bei den sequentiellen Dateien, so 
ist es bei relativen datei, äußerst wichtig die Länge der Datei 
mit anzugeben. Durch Angabe dieser Länge, ist es dem Computer 
erst möglich, die relativen "Sprünge" zu den Sätzen zu berechnen. 
Bei der sequentiellen Datei kann diese Angabe entfallen, da hier 
die Länge unerheblich ist. 

Nun weiß die Floppy 1540/1541, daß eine relative Datei mit der 
Länge 64 und dem Namen "ARTDAT" angelegt werden soll. Wenn wir 
nun einen bestimmten Datensatz schreiben wollen, so müssen wir 
nun noch die Stelle angeben an der der Satz gespeichert werden 
soll. Von BASIC aus könnte die Position des Zeigers so aussehen: 

PRINT# Kanal#,"P";CHR^(Kanal#);CHR$(Satz#-low);CHR$(Satz#-high) 

Stellen wir uns nun vor, daß wir in den 78ten Satz schreiben 
wollen. So müssen wir nun zunächst Satz#-low und Satz#-high 
berechnen. Dies geschieht mit folgender Formel: 

HB=INT(RN/256): LB=RN-HB*256 
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oder an dem konkreten Beispiel: 


HB=INT(78/256): LB=78-HB*256 

und als Ergebnis -für Satz#-low (LB) und Satz#-high (HB): 

HB=0: LB=78 

Eingesetzt in unsere obige Formel zum Positionieren der Zeiger 
lautet demanch so: 

PRINT#1,"P";CHR^(1);CHR^(0);CHR^(78) 

nun steht der Zeiger an der richtigen Stelle und wir können den 
Satz schreiben. Dieses geschieht mit dem PRINT#-Be-fehl . Alle 
Variablen, die in die Datei gespeichert werden sollen, müssen mit 
einem CHR^(13), also einem RETURN, voneinander getrennt werden. 
Den letzten RETURN setzt dann der Computer selber. Siehe hierzu 
die Zeilen 10070-10080 des Beipsielprogrammes. 

Das Lesen eines Satzes geschieht nach dem selben Muster. Zunächst 
wird der Zeiger positioniert, dann die Routine zum Lesen 
aufgerufen. Hier werden dann jweils die Variablen, die beim 
Schreiben durch RETURNs getrennt wurden, einzelnen eingelesen. 
Der VC—20 hält hierfür den INPUT#—Befehl bereit. In unserem 
Beispiel erfolgt das Lesen in den Zeilen 10030 bis 10060. 

Eine weitere wichtige Einrichtung für die Benutzung der Dateien, 
und generell der Floppy, ist der Fehlerkanal. Wenn Sie einen 
Datei geöffnet haben, sollten Sie immer zuerst den Fehlerkanal 
abfragen, um so rechtzeitig festzustellen, ob alles in Ordung 
ist (s. Zeilen 12000-12050). 

Mit Hilfe dieser Routinen ist es nun möglich, beliebige, relative 
Dateien zu erzeugen und zu verarbeiten. Sie können nun zum 
Beispiel Ihre eigene Adressenverwaltung, oder Ihre 
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Schallplattensammlung, verwalten. Nehmen Sie dazu einfach unser 
Programm als Anregung. Wenn Sie dieses Programm in seinen 
Grundzügen verstanden haben, dann wird Ihnen auch eine eigene 
Entwicklung keine Schwierigkeiten mehr bereiten. Die 
Dateiverwaltung zählt twar nicht unbedingt zu den einfachsten, 
aber auf jeden Fall zu den interessantesten Aufagen in der 
Programmierung. 

Nun aber noch etwas zu unserem Programm. Nachdem Sie es durch RUN 
gestartet haben, erscheint die Frage, ob das Diskettengerät 
bereit ist. Diese Meldung wird solange erscheinen, bis Sie die 
'J'—Taste drücken. Danach werden Sie gefragt, ob Sie eine neue 
Diskette verwenden wol1. Neu heißt im dem Fall nicht nur 
unformatiert, sondern auch, daß noch keine Datei mit dem Namen 
ARTDAT vorhanden ist. Aber Vorsicht, die Diskette wird 
formatiert. Benutzen Sie also nicht eine Ihrer Programmdisketten. 
Wenn dieser Vorgang beendet ist, erscheint das Hauptmenü. Hier 
können Sie nun eine der 6 Möglichen Funktionen aufrufen. 

Wenn Sie einen Datensatz gestalten wollen, so denken Sie daran, 
daß die Eingabe nicht länger sein darf, als in den DATA-Zeilen 
(30-82) festgelegt ist. Diese Zeilen sind do aufgebaut, daß 
zuerst der Name und dann die Länge der Bezeichnung aufgeführt 
wird. Wollen Sie einen bereits eingegebenen Datensatz wieder 
löschen, so gehen Sie in die Routine AENDERN, und schreiben als 
erstes Zeichen der Bezeichnung Warenart ein Klammeraffen (@ ). 
Somit wird dieser Satz als gelöscht gekennzeichnet. 

Wenn Sie in irgendeinem Unterprogramm aufgefordert werden, eine 
Artikelnummer einzugeben, so können Sie durch die Eingabe von 
"ENDE" wieder ins Haupt— oder Übermenü zurückgelangen- 

Die Zeilen 11 bis 14 stellen den heutigen Mehrwertsteuersatz dar. 
ME (1) und ME(2) sind die beiden alten Sätze von 6.5^ und 1371. Die 
nächsten beiden sind die neuen Sätze von 771 und 1471. Werden Sie 
also nach dem Mehrwertsteuersatz gefragt, so geben Sie einfach 
eine 1 für 6.571, eine 2 für 137., eine 3 für 771 und eine 4 für 1471 
ein. Der Computer berechnet sich dann den korrekten 
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Mehrwetsteuersatz. 


Eine Besonderheit ist bei diesem Programm aber noch zu beachten. 
Artikelnummern, die von 800 bis 999 gehen (999 ist die größte 
mögliche Nummer), werden nicht als Artikel gewertet sondern als 
Ausgaben oder Einnahmen. So können Sie gleichzeitig zu den 
verschiedenen Artikeln auch noch Ihre Privatkonten, Bankkonten 
usw. überwachen. Die Eingabe dieser Konten er-folgt im 
Unterprogramm EINGABE DER KASSENZETTEL. Wenn die erste Eingabe, 
also der erste "Kassenzettel", genauer gesagt die Rechnung, eine 
Zahl größer 799 war, so erwartet der Computer weitere Eingaben 
dieser Art. Das heißt, daß Sie nicht abwechselnd Artikel und 
Rechnungen eingeben können, sondern diese nur jeweils getrennt. 

Außerdem ist darau-f zu achten, daß bei der Arbeit mit diesem 
Programm, Drucker und Floppy immer angeschaltet sind. Haben Sie 
aber keinen Drucker, so müssen Sie das Programm umschreiben. Sie 
sehen ja an den PRINT#4-Be-f ehl en, in welchen Zeilen eine Ausgabe 
auf dem Drucker erfolgen soll. 

Wenn Sie noch weitere Filialen oder Personen mit diesem Programm 
unterstützen wollen, so empfiehlt es sich für jede Filiale oder 
Person, eine neue Diskette anzulegen. Dann wissen Sie zu jeder 
Zeit über die finanzielle Lage bescheid. 

Wir hoffen, daß Sie mit Hilfe deises Programmes einen Einblick in 
die Datenverarbeitung, und besonders in die Datenverarbeitung mit 
relativen Dateien bekommen haben. Es sieht auf den ersten Blick 
schwieriger aus als es ist. Mit ein wenig Übung, werden auch Sie 
rasch solche Programme selbst entwerfen können. 

Noch eine Anmerkung zum Datei Verwaltungsprogramm. Bei einer 
Neuerstellung einer Diskette, beginnt nach dem letzen Zugriff auf 
die Diskette die rote LED der Floppy zu blinken. Dies ist jedoch 
kein Fehler, sondern nur eine besondere Reaktion der Floppy 
1540/1541 bei der Benutzung einer relativen Datei. 
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Wir wollen ja eine Datei mit maximal 999 Einträgen erstellen. 
Dazu haben wir mit dem Be-fehl 

230 OPEN 15,8,15,"N:DATENDISKETTE,VC" 

240 OPEN 1,8,3,"0:ARTDAT,L,"+CHR$(64) 

250 PRINT#1,CHR^(255); 

eine entsprechende Datei erstellt. Allerdings wird beim Schreiben 
des CHR^(255) au-f Diskette als letzter Satz ein 

RECORD NOT PRESENT 

Fehler erkannt. Dies hat jedoch keinen Ein-fluss au-f Ihre Datei. 

Im übrigen können im Zusammenhang mit der Dateiverwaltung noch 
andere Fehlermeldungen entstehen. Dies sind unter anderem: 

RECORD NOT PRESENT 

OVERFLOW IN RECORD 

FILE TOD LARGE 

Die Bedeutung der jeweiligen Fehler können Sie im Handbuch der 
Floppy nachlesen. 
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Hier nun das oben besprochene Programm zur Dateiverwaltung auf 
dem VC-20. 


10 CLR 

11 ME(1)=1.065 

12 ME(2)=1.13 

13 ME(3)=1.07 

14 ME(4)=1.14 
20 FÜR 1=1 TO 7 

25 READ TD^(I),TD(I) 

27 NEXT I 

30 DATA "1) ARTIKEL NR.",3 
32 DATA "2) WARENART",20 
34 DATA "3) ANZAHL",3 
36 DATA "4) EINZELPREIS EK",7 
38 DATA "5) GESAMTPREIS EK",8 
40 DATA "6) EINZELPREIS OK",7 
42 DATA "7) GESAMTPREIS OK",8 
50 FÜR 1=1 TO 3 
52 READ TI^(I),TI(I) 

54 NEXT I 

56 DATA "D ARTIKEL NR. ",3 
58 DATA "2) WARENART",20 
60 DATA "3) MWST GRUPPE",! 

70 FOR 1=1 TO 4 
72 READ TT^(I),TT(I) 

74 NEXT I 

76 DATA "1) FILIALE NR.",1 
78 DATA "2) DATUM",8 
80 DATA "3) RECHNUNGS NR.",8 
82 DATA "4) BELEG NR.",8 
100 PRINT CHR^(147); 

110 PRINT "**********************"; 
120 PRINT "*ARTIKELOERWALTUNG OC*"; 
130 PRINT "**********************"; 
140 PRINT: PRINT 
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150 PRINT "DISK BEREIT (J/N)? 

160 GET IF A^="" THEN 160 

170 IF THEN 160 

180 PRINT 
185 PRINT 

190 OPEN 15,8,15,"10" 

195 CLÜSE 15 

200 PRINT "NEUE DISKETTE (J/N)? "; 

210 GET A^: IF A^="" THEN 210 
220 IF A^<>"J" THEN 300 
222 PRINT A^ 

224 PRINT 

230 OPEN 15,8,15,"N:DATENDISKETTE,VC" 

240 OPEN 1,8,3,"0:ARTDAT,L,"+CHR^(64) 

250 PRINT#15,"P"+CHR^(3)+CHR^(231)+CHR^(3)+CHR^(1) 
260 PRINT#1,CHR^(255); 

270 RM=INT(167132/64) 

280 CLOSE 1 

290 CLOSE 15 

300 PRINT CHR^(147); 

310 PRINT "**********************"; 

320 PRINT "*ARTIKELVERWALTUNG VC*"; 

330 PRINT "**********************"; 

340 PRINT: PRINT 

345 PRINT " HAUPTMENU": PRINT 

350 PRINT "D EINGABE DER DATEI": PRINT 
355 PRINT "2) AENDERN DER DATEI": PRINT 
360 PRINT "3) EINGABE KASSENZ.": PRINT 
365 PRINT "4) DRUCKEN ART.-LISTE": PRINT 
370 PRINT "5) DRUCKEN AUSWERTUNG": PRINT 
375 PRINT "6) PROGRAMMENDE": PRINT: PRINT 
380 PRINT "BITTE WAEHLEN SIE "; 

390 GET A^: IF A^="" THEN 390 

400 A=VAL(A^): IF A<1 OR A>6 THEN 390 

410 PRINT A^; 

420 FOR 1=1 TO 1000: NEXT 

430 ON VAL(A^) GOTO 1000,2000,3000,4000,5000,6000 
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1000 OPEN 15,8,15: OPEN 8,8,8,"O:ARTDAT" 

1002 GÜSUB 12000 
1005 PRINT CHR$(147); 

1010 PRINT ''**********************"; 

1020 PRINT "*ARTIKELOERWALTUNG VC*"; 

1030 PRINT "**********************"; 

1040 PRINT: PRINT 

1050 PRINT " EINGABE DER DATEI": PRINT: PRINT 
1060 FÜR 1=1 Tü 3 
1065 TE$<!)="" 

1070 PRINT TI$(I) 

1080 INPUT TE$(I) 

1090 PRINT 

1092 IF TE$(1)="ENDE" THEN 1200 

1095 IF LEN(TE$(I))>TI(I) THEN 1065 

1100 NEXT I 

1102 FÜR 1=4 Tü 8 

1104 TE$(I)="" 

1106 NEXT I 

1110 RN=VAL(TE$(1)) 

1120 IF RN<1 ÜR RN>999 THEN 1005 

1130 GÜSUB 10000 

1140 GÜSUB 10070 

1150 GOTO 1005 

1200 CLOSE 8 

1210 CLOSE 15 

1220 GOTO 300 

2000 OPEN 15,8,15: OPEN 8,8,8,"O:ARTDAT" 

2002 GOSUB 12000 
2005 PRINT CHR$<147); 

2010 PRINT "**********************"; 

2020 PRINT "*ARTIKELVERWALTUNG VC*"; 

2030 PRINT "**********************"; 

2040 PRINT: PRINT 

2050 PRINT " AENDERN DER DATEI": PRINT: PRINT 
2055 TE$(1)="" 

2060 PRINT TI$(1) 
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2070 INPUT TE^(l) 

2080 PRINT 

2090 IF TE^(1)="ENDE" THEN 2400 
2100 IF LEN(TE^(1))>TI(1) THEN 2055 
2110 RN=0AL(TE^(1)) 

2120 IF RN<1 OR RN>999 THEN 2005 
2130 GÜSUB 10000 
2140 GÜSUB 10030 

2142 IF 0AL(TE^(1))<>RN THEN 2005 
2150 PRINT CHR^(147); 

2160 PRINT ''**********************'■; 

2170 PRINT "*ARTIKELOERWALTUNG OC*"; 

2180 PRINT ''**********************•'; 

2190 PRINT: PRINT 

2200 PRINT '• AENDERN DER DATEI": PRINT: 
2210 FÜR 1=1 TO 3 
2220 PRINT TI^(I) 

2230 PRINT "? ";TE^(I) 

2240 PRINT CHR^(145); 

2260 INPUT TE^(I) 

2270 PRINT 

2280 IF TE^(1)="ENDE" THEN 2400 
2290 IF LEN(TE^(I))>TI(I) THEN 2250 
2300 NEXT I 
2310 RN=0AL(TE^(1)) 

2320 IF RN<1 OR RN>999 THEN 2005 

2330 GOSUB 10000 

2340 GÜSUB 10070 

2350 GOTO 2005 

2400 CLOSE 4 

2410 CLOSE 8 

2420 CLOSE 15 

2430 GOTO 300 

2530 GOTO 3005 

3000 OPEN 15,8,15: OPEN 8,8,8,"0:ARTDAT" 

3001 GÜSUB 12000 

3002 D0=1 


PRINT 
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3003 GOSUB 8000 

3004 GOSUB 8500 

3005 PRINT CHR^(147); 

3010 PRINT ''**********************■'; 

3020 PRINT "^ARTIKELVERWALTUNG VC*"; 

3030 PRINT "**********************"; 

3040 PRINT: PRINT 

3050 PRINT " EINGABE KASSENZETTEL": PRINT: PRINT 
3060 TE^(1)="" 

3070 PRINT TI^(l) 

3080 INPUT TE^(l) 

3090 PRINT 

3100 IF TE^(1)="ENDE" THEN 3700 
3110 IF LEN(TE^ (1) ) :>TI (1) THEN 3060 
3120 RN=VAL(TE^(1)) 

3130 IF RN<1 ÜR RN>999 THEN 3005 
3132 IF DW=1 AND RN>799 THEN 3005 
3134 IF DW=2 AND RN<800 THEN 3000 
3140 GOSUB 10000 
3150 GOSUB 10030 

3152 IF VAL(TE^(1))<>RN THEN 3005 
3160 PRINT CHR^(147); 

3170 PRINT "**********************"; 

3180 PRINT "*ARTIKELVERWALTUNG VC*"; 

3190 PRINT "**********************"; 

3200 PRINT: PRINT 

3210 PRINT " EINGABE KASSENZETTEL": PRINT: PRINT 
3212 FOR 1=1 TO 5 
3214 TH^(I)=TE^(I+3) 

3216 NEXT I 
3220 FOR 1=1 TO 2 
3230 PRINT TD^(I) 

3235 PRINT "? ";TE^(I) 

3237 TX$(I)=TE^(I) 

3240 PRINT 

3250 NEXT I 

3255 TX^(3)=TE^(3) 
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3260 PRINT TD^(3) 

3270 INPUT TX^(4) 

3275 TE^(4)=TX^(4) 

3280 PRINT 

3285 IF 0AL(TE^(4))<-999 ÜR OAL(TE^(4))>999 THEN 3260 
3287 IF LEN(TE^(4))>TD(3) THEN 3260 
3290 PRINT TD^(4) 

3295 TE^(5)="" 

3300 INPUT TX^(5) 

3305 TE^(5)=TX^(5) 

3310 PRINT 

3315 IF LEN(TE^(5))>TD(4) THEN 3290 
3320 PRINT TD^(6) 

3325 TE^(7)="" 

3330 INPUT TX^(7) 

3335 TE^(7)=TX^(7) 

3340 PRINT 

3345 IF LEN(TE$(7))>TD(6) THEN 3320 

3350 TH=OAL(TE^(5))*VAL(TE^(4)) 

3351 TX^(6)=STR^(TH) 

3352 TH=TH+OAL(TH^(3)) 

3355 TE$(6)=STR$(TH) 

3360 TH=VAL(TE$(7))*OAL(TE^(4)) 

3361 TX^(8)=STR^(TH) 

3362 TH=TH+0AL(TH^(5)) 

3365 TE^(8)=STR^(TH) 

3370 TH=OAL(TE$(5)) 

3371 IF OAL(TE^(4))<1 THEN TH=-TH 

3372 TH=TH+OAL(TH^(2)) 

3375 TE^(5)=STR^(TH) 

3380 TH=0AL(TE^(7)) 

3381 IF VAL(TE$(4))<1 THEN TH=-TH 

3382 TH=TH+OAL(TH$(4)) 

3385 TE$(7)=STR$(TH) 

3390 TH=0AL(TE^(4)) 

3392 TH=TH+OAL(TH$(1)) 

3395 TE^(4)=STR^(TH) 
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3460 RN=0AL(TE^(1)) 

3470 GOSUB 10000 
3480 GOSUB 10070 

3485 FÜR 1=1 TO 8 

3486 TE^(I)=TX$(I) 

3487 TX^(I)="" 

3488 NEXT I 

3490 IF DW=0 AND VAL(TE^(1))<800 THEN DW=1: GOSUB 5360: GOTO 3510 
3500 IF DW=0 AND VAL(TE^(1))>799 THEN DW=2: GOSUB 7005: GOTO 3520 
3510 IF DW=1 THEN GOSUB 5520: GOTO 3530 
3520 IF DW=2 THEN GOSUB 7120 
3530 GOTO 3005 

3700 IF DW=1 THEN GOSUB 5590: GOTO 3800 
3710 IF DW=2 THEN GOSUB 7190 
3800 DW=0: D0=0 

3999 CLOSE 4: CLOSE 8: CLOSE 15: GOTO 300 

4000 OPEN 15,8,15: OPEN 8,8,8,"0:ARTDAT" 

4002 GOSUB 12000 

4005 PRINT CHR^(147); 

4010 PRINT •'**********************''; 

4020 PRINT "*ARTIKELOERWALTUNG OC*"; 

4030 PRINT ''**********************•'; 

4040 PRINT: PRINT 

4050 PRINT " DRUCKEN ARTIKELLISTE": PRINT: PRINT 
4060 FOR 1=1 TO 2 
4070 TE^(I)="" 

4080 PRINT TT^(I) 

4090 INPUT TE$(I) 

4100 PRINT 

4110 IF TE$(1)="ENDE" THEN 4999 
4120 IF LEN(TE^(I))>TT(I) THEN 4070 
4130 NEXT I 

4135 TE^(3)="": TE^(4)="" 

4140 IF D0=1 THEN RETURN 
4200 PRINT CHR^(147); 

4210 PRINT "**********************"; 

4220 PRINT "*ARTIKELOERWALTUNG OC*"; 
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4230 PRINT ''**********************''; 

4240 PRINT: PRINT 

4250 PRINT " DRUCKEN ARTIKELLISTE": PRINT: PRINT 
4260 PRINT "DRUCKER BEREIT (J/N)?"; 

4270 GET A^: IF A$="" THEN 4270 
4280 IF A^<>"J" THEN 4270 
4290 PRINT A^ 

4300 OPEN 4,4 

4310 PRINT#4,"FILIALE NR. ";TE^(1) ; 

4330 PRINT#4,CHR^(16);"20";"DATUM ";TE^(2); 

4340 PRINT#4,CHR^(16);"40";"RECHNUNGS NR. ";TE^(3) 
4345 PRINT#4,CHR^(16);"60";"BELEG NR. ";TE^(4) 

4350 PRINT#4 

4360 PRINT#4,"ARTIKEL NR."; 

4375 PRINT#4,CHR^(16);"20";"WARENART"; 

4385 PRINT#4,CHR^(16);"60";"MWST GRUPPE" 

4390 PRINT#4,"-"; 

4405 PRINT#4,CHR^( 16) ; "20"; "-" ; 

4415 PRINT#4,CHR^ (16) ; "60"; "-" 

4420 FÜR RN=1 TO 999 
4430 GOSUB 10000 
4440 GOSUB 10030 

4442 IF 0AL(TE^(1))<>RN THEN 4480 
4444 IF LEFT^(TE^(2),l)="g)" THEN 4480 
4450 PRINT#4,TE^(1); 

4460 PRINT#4,CHR^(16);"20";TE^(2); 

4470 PRINT#4,CHR^(16);"60";TE^(3) 

4480 NEXT RN 

4490 PRINT#4: PRINT#4: PRINT#4 

4999 CLOSE 4: CLOSE 8: CLOSE 15: GOTO 300 

5000 OPEN 15,8,15: OPEN 8,8,8,"0:ARTDAT" 

5002 GOSUB 12000 

5005 PRINT CHR^(147); 

5010 PRINT "**********************"; 

5020 PRINT "*ARTIKELOERWALTUNG OC*"; 

5030 PRINT "**********************"; 

5040 PRINT: PRINT 
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5050 PRINT DRUCKEN AUSWERTUNG": PRINT: PRINT 
5060 FÜR 1=1 TO 4 
5070 TE^(I)="" 

5080 PRINT TT^(I) 

5090 INPUT TE^(I) 

5100 PRINT 

5110 IF TE^(1)="ENDE" THEN 5999 
5120 IF LEN(TE^(I))>TT(I) THEN 5070 
5125 IF D0=0 AND 1=2 THEN 1=4 
5130 NEXT I 

5140 IF D0=1 THEN RETURN 
5200 PRINT CHR^(147); 

5210 PRINT "**********************"; 

5220 PRINT "*ARTIKELOERWALTUNG OC*"; 

5230 PRINT "**********************"; 

5240 PRINT: PRINT 

5250 PRINT " DRUCKEN AUSWERTUNG": PRINT: PRINT 
5252 SA=0: SE=0: SG=0: SF=0: SH=0 

5255 FOR 1=1 Tü 4 

5256 Ml(I)=0: M2(I)=0 

5257 NEXT I 

5260 PRINT "DRUCKER BEREIT (J/N)?"; 

5270 GET A^: IF A^="" THEN 5270 
5280 IF A^<>"J" THEN 5270 
5290 PRINT A^ 

5300 OPEN 4,4 

5310 PRINT#4,"FILIALE NR. ";TE^(1); 

5330 PRINT#4,CHR^(16);"20";"DATUM ";TE^(2); 

5335 IF D0=0 THEN PRINT#4: GOTO 5350 

5340 PRINT#4,CHR^(16);"40";"RECHNUNGS NR. ";TE^(3) 

5345 PRINT#4,CHR^(16);"60";"BELEG NR. ";TE^(4) 

5350 PRINT#4 

5355 IF D0=1 THEN RETURN 
5360 PRINT#4,"ART. NR."; 

5370 PRINT#4,CHR^(16);"10";"ANZ. "; 

5375 PRINT#4,CHR^(16);"15";"WARENART"; 

5380 PRINT#4,CHR^(16);"40";"EINZ. EK"; 
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5390 

PRINT#4,CHR^(16);"50" 

;"GESA. 

EK"; 

5400 

PRINT#4,CHR$:(16) ; "60" 

;"EINZ. 

VK "; 

5410 

PRINT#4,CHR^(16);"70" 

;"GESA. 

VK" 

5420 

PRINT#4," 



5425 

PRINT#4,CHR^(16);"10" 

. ..-M 

; 

5430 

PRINT#4,CHR^(16);"15" 


. 

5440 

PRINT#4,CHR^(16);"40" 


. 

5450 

PRINT#4,CHR$(16);"50" 


• 

5460 

PRINT#4,CHR$:(16) ; "60" 



5470 

PRINT#4,CHR^(16);"70" 



5475 

IF DV=1 THEN RETURN 



5480 

FÜR RN=1 TO 799 



5490 

GÜSUB 10000 



5500 

GÜSUB 10030 




5510 IF VAL(TE^(1))<>RN THEN 5580 
5515 IF LEFTi:(TE^ (2) ,l)="(g) " THEN 5580 
5520 PRINT#4,TE^(1); 

5525 PRINT#4,CHR^(1(S) ; "10";TE$(4) ; 

5530 PRINT#4,CHR^(16);"15";TE^(2) ; 

5540 PRINT#4,CHR^(16);"40";TE^(5); 

5550 PRINT#4,CHR^(16);"50";TE^(6) ; 

5560 PRINT#4,CHR^(16);"60";TE^(7) ; 

5570 PRINT#4,CHR$: (16) ; "70";TE^(8) 

5571 SA=SA+VAL(TE^(4)) 

5572 SE=SE+VAL(TE^(5)) 

5573 SG=SG+VAL(TE^(6)) 

5574 Ml(VAL(TE^(3)))=M1(VAL(TE^(3)))+(VAL(TE^(6))*ME(VAL(TE$(3))) 
-VAL(TE$:(6) ) ) 

5576 SF=SF+VAL(TE^(7)) 

5577 SH=SH+VAL(TE$:(8) ) 

5578 M2(VAL(TE^(3)))=M2(VAL(TE^(3)))+(VAL(TE^(8))-VAL(TE^(8))/ME( 
VAL(TE^(3)))) 

5579 IF DV=1 THEN RETURN 

5580 NEXT RN 

5590 PRINT#4,"-"; 

5600 PRINT#4,CHR$(16);"10";"-"; 

5605 PRINT#4,CHR^(16) ; "15"; "-"; 
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5610 PRINT#4,CHR^(16) ; "40"; "-"; 

5620 PRINT#4,CHR^ (16) ; "50"; "-"; 

5630 PRINT#4,CHR^(16) ; "60"; "-"; 

5640 PRINT#4,CHR^(16) ; "70"; "-" 

5650 PRINT#4,"SUMMEN:"; 

5660 PRINT#4,CHR^(16);"09";SA; 

5670 PRINT#4,CHR^(16);"39";SE; 

5680 PRINT#4,CHR^(16);"49";SG; 

5690 PRINT#4,CHR$(16);"59";SF; 

5700 PRINT#4,CHR^(16);"69";SH 

5710 PRINT#4: PRINT#4: PRINT#4 

5720 PRINT#4, "MWST. EK 6,5 7. = " ; Ml (1 ); 

5725 PRINT#4,CHR$(16) ; "40"; "MWST. EK 7 7. = ";M1(3) 

5730 PRINT#4, "MWST. EK 13,0 7. = ";M1(2); 

5735 PRINT#4,CHR$(16) ; "40"; "MWST. EK 14 7. = ";M1(4) 

5740 PRINT#4,"MWST. VK 6,5 7. = " ; M2 (1) ; 

5745 PRINT#4,CHR^(16) ; "40"; "MWST. VK 7 7. = ";M2(3) 

5750 PRINT#4, "MWST. VK 13,0 7. = ";M2(2); 

5755 PRINT#4,CHR^(16) ; "40"; "MWST. VK 14 7. = ";M2(4) 

5756 PRINT#4: PRINT#4: PRINT#4 

5760 PRINT#4,"GESAMT EK. = ";SG+Ml(1)+M1(2)+M1(3)+M1(4) 
5770 PRINT#4,"GESAMT VK. = ";SH-M2(1)-M2(2)-M2(3)-M2(4) 
5775 PRINT#4: PRINT#4: PRINT#4 
5777 IF DV=1 THEN RETURN 
5780 GOSUB 7000 

5999 CLOSE 4: CLOSE 8: CLÜSE 15: GOTO 300 

6000 CLÜSE 4: CLOSE 8: CLOSE 15 
6010 PRINT CHR^(147); 

6020 END 

7000 S1=0: S2=0 

7005 PRINT#4,"ART. NR."; 

7010 PRINT#4,CHR$(16);"15";"ART"; 

7020 PRINT#4,CHR$(16);"40";"AUSGABEN"; 

7030 PRINT#4,CHR^(16);"60";"EINNAHMEN" 

7040 PRINT#4,"-"; 

7050 PRINT#4,CHR$(16);"15";"-"; 

7060 PRINT#4,CHR^< 16) ; "40"; "-"; 
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7070 PRINT#4,CHR:J: (16) ; "60"; "-" 

7075 IF DV=1 THEN RETURN 
7080 FÜR RN=800 TO 999 
7090 GÜSUB 10000 
7100 60SUB 10030 

7110 IF VAL(TE^ (1) ) ORN THEN 7180 
7120 PRINT#4,TE^(1); 

7130 PRINT#4,CHR^ (16) ; "15";TE:$(2) ; 

7140 PRINT#4,CHR^(16);"40";TE$(5); 

7150 PRINT#4,CHR^(16);"60";TE^(7) 

7160 S1=S1+VAL(TE^(5)) 

7170 S2=S2+VAL(TE^(7)) 

7171 M2(VAL(TE^(3)))=M2(VAL(TE^(3)))+(VAL(TE^(7))-VAL(TE^(7))/ME( 
VAL(TE^(3)))) 

7172 Ml(VAL(TE$(3)))=M1(VAL(TE^(3)))+(VAL(TE^(5))-VAL(TE^(5))/ME( 
VAL(TE^(3)))) 

7175 IF DV=1 THEN RETURN 
7180 NEXT RN 


7190 

PRINT#4, "-" 

5 




7200 

PRINT#4,CHR^(16);" 

15"; ■'- 






; 










7230 

PRINT#4,"SUMMEN:"; 





7240 

PRINT#4,CHR^(16);" 

■39";S1; 




7250 

PRINT#4,CHR^(16);' 

■59";S2 




7260 

PRINT#4: PRINT#4: 

PRINT#4 




7270 

PRINT#4,"MWST. EK 

6,5 7. = " 

;M1 (1) ; 



7280 

PRINT#4,CHR^(16); ' 

•40";"MWST. 

EK 7 

7. = 

" ; M1 (3) 

7290 

PRINT#4,"MWST. EK 

13,0 7. = " 

;M1 (2) ; 



7300 

PRINT#4,CHR$:(16) ; ' 

■40";"MWST. 

EK 14 

7. = 

"; Ml(4) 

7310 

PRINT#4,"MWST. VK 

6,5 '/m = " 

;M2 (1) ; 



7320 

PRINT#4,CHR^(16); ' 

•40";"MWST. 

VK 7 

7. = 

";M2(3) 

7330 

PRINT#4,"MWST. VK 

13,0 7. = " 

;M2(2); 



7340 

PRINT#4,CHR^(16) ; ' 

•40";"MWST. 

VK 14 

7. = 

";M2(4) 

7350 

PRINT#4: PRINT#4: 

PRINT#4 





7360 PRINT#4,"AUSGABEN = ";Sl-Ml(1)-Ml(2)-Ml(3)-Ml(4) 
7370 PRINT#4,"EINNAHMEN= ";S2-M2(1)-M2(2)-M2(3)-M2(4) 
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7380 PRINT#4: PRINT#4: PRINT#4 

7999 RETURN 

8000 PRINT CHR^(147); 

8010 PRINT "**********************"; 

8020 PRINT "*ARTIKELOERWALTUNG OC*’*; 

8030 PRINT "**********************"; 

8040 PRINT: PRINT 

8050 PRINT " EINGABE KASSENZETTEL": PRINT: PRINT 
8060 SA=0: SE=0: SG=0: SF=0: SH=0: S1=0: S2=0 
8070 FÜR 1=1 TO 4 
8072 Ml(I)=0: M2(I)=0 
8074 NEXT I 

8080 PRINT "DRUCKER BEREIT (J/N)?"; 

8090 GET A^: IF A^="" THEN 8090 
8100 IF A^<>"J" THEN 8090 
8110 PRINT A^ 

8120 OPEN 4,4 

8130 RETURN 

8500 PRINT CHR$(147); 

8510 PRINT "**********************"; 

8520 PRINT "*ARTIKELOERWALTUNG OC*"; 

8530 PRINT "**********************"; 

8540 PRINT: PRINT 

8550 PRINT " EINGABE KASSENZETTEL": PRINT: PRINT 
8560 GOSUB 5060: GOSUB 5310: RETURN 
10000 HB=INT(RN/256): LB=RN-HB*256 

10010 PRINT#15,"P"+CHR^(8)(LB) +CHR^ (HB)+CHR^(1) 

10015 GOSUB 12000 
10020 RETURN 

10030 INPUT#8,TE$:(1) ,TE$:(2) ,TE^(3) ,TE$:(4) ,TE^(5) ,TE^(6) ,TE^(7) ,TE^ (8) 
10060 RETURN 

10070 TE$:=TE^ (1) +CHR^ (13) (2) +CHR^ (13) +TE^ (3) +CHR$: (13) +TE^ (4) +CHR$ (13 

10072 TE^=TE^+TE^ (5) +CHR^ (13) +TE^ (6) +CHR$: (13) +TE^ (7) +CHR^ (13) +TE^ (8) 
10080 PRINT#8,TE$: 

10110 RETURN 

12000 INPUT#15,X,X$:,Y$,Z^ 

12010 IF X=0 OR X=50 THEN RETURN 
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12020 PRINT "FEHLER: ••;X,X^;Y^;Z^ 

12030 CLOSE 8 

12035 CLOSE 15 

12040 FOR 1=1 TO 6000 

12055 NEXT I 

12060 GOTO 100 


Dieses Programm verdeutlicht alle Teile, die in jeder 
Dateiverwaltung enthalten sind. Es wird sowohl mit einer gewissen 
Bildschirmmaske gearbeitet, als auch die die Benutzung der 
relativen Datei aut dem VC-20 und der Floppy 1540/1541 
demonstriert. Da jeder Anwender andere Probleme hat, die mit 
derartigen Programmen gelöst werden können, haben wir an der 
Stelle nur ein konkretes Beispiel von vielen zeigen können. Der 
geübte Programmierer hat aber sicherlich keine Schwierigkeiten 
dieses Programm so umzuschreiben, daß es auch seine Aufgaben 
lösen kann. 
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Und wie geht's sequentiell ? 


Wo Sie nun einen Eindruck von dem bekommen haben, wie man 
relative Dateien verarbeiten kann, sollte an dieser Stelle auch 
noch kurz au-F die sequentielle Datei eingegangen werden. 


Eine einfache Routine zum Schreiben von Daten auf Kassette könnte 
folgendermaßen aussehen: 


10 

20 

30 

40 

50 

52 

54 

56 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

155 

160 

170 

130 

190 

200 

210 


REM **************************************** 
REM SCHREIBEN VON NAME UND VORNAME AUF BAND 
REM VERSION FUER DATASETTE / VC-20 
REM **************************************** 
PRINT CHR^(147): REM BILDSCHIRM LOESCHEN 
PRINT "OEFFNEN DER DATEI" 

PRINT 

OPEN 1,1,1,"VC-20 DATEI" 

INPUT "NAME : ";NA^ 

INPUT "VORNAME ; ";VN^ 

PRINT 

PRINT "SCHREIBEN - NAME = ";NA^ 

PRINT " - VORNAME = ";VN^ 

PRINT 

PRINT#1 ,NA:f 
PRINT#1,VN$ 

PRINT 

INPUT "WEITER (J/N) ";JN^ 

PRINT 

IF JN^="J" THEN 60 
IF JN^="N" THEN 200 
PRINT "FALSCHE EINGABE !" 

GOTO 140 
CLOSE 1 
END 


Entsprechend lassen sich selbstverständlich auch Daten lesen und 
ändern. 
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7.2 Eine andere Methode Direktzugri-f-f 


Diese Art des Zugriffs auf Daten und Diskette wird leider oft 
völlig vernachlässigt- Zwar ist sie auch sehr kompliziert und 
aufwendig, hat aber auch einige sehr interessante Aspekte. Was 
läßt sich nun mit dem Direktzugriff alles verwirklichen ? 

1. ) Der Zugriff auf Dateien - Random-Dateien 

Diese Methode hat einiges mit der sequentiellen Dateiverwaltung 
zu tun, ohne aber deren Nachteile zu haben, und einiges mit der 
relativen Dateiverwaltung. 

2. ) Der Zugriff auf einzelne Spuren der Diskette 

Mit diesem Zugriff stehen Ihnen Möglichkeiten zur Verfügung, an 
die Sie bisher noch gar nicht dachten und deren Zweck Sie 
vielleicht noch gar nicht einsehen. Mehr dazu noch später. 

1. Random-Dateien 

Im Unterschied zu den sequentiellen und relativen Dateien, ist 
hier der einzelne Block immer 256 Bytes lang - auf einer Diskette 
gehen insgesamt 664 solcher Blöcke. Trotzdem können Sie auch 
kleinere Datensätze abspeichern- Es ist beispielsweise denkbar, 
daß Sie in einen Block insgesamt 4 Datensätze a' 64 Bytes Länge 
speichern- Sie müssen dann nur darauf achten, daß Sie innerhalb» 
eines solchen Blocks auch genau auf den Satz zugreifen, den Sie 
tatsächlich verarbeiten wollen. Sie müssen zunächst eine 
sequentielle Datei öffnen, um dort die Spuren zu vermerken, in 
denen Sie die Datensätze gespeichert haben. Insgesamt benötigen 
Sie also 3 Dateien: 

1. ) sequentielle Datei für die Zeiger 

2. ) Kommando-Datei 

3. ) Daten-Datei zur direkten Speicherung 
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10 OPEN 4,8,4,"CBM 64 DATEI,S,W": REM SEQUENT. DATEI 
20 OPEN 15,8,15: REM KOMMANDOKANAL 
30 OPEN 5,8,5,"#": REM DATEN-DATEI 
40 TE^="DATA BECKER GMBH" 

50 PRINT#5,TE^;",1: REM TEXT, RECORD# 

60 T=l: 8=1: REM TRACK=1, SECT0R=1 

70 PRINT#15,"B-A:";0,T,S: REM DRIVE, TRACK, SECTOR 
80 INPUT#15,ER,NA:f,TR,BL: REM LESEN FEHLER 
90 IF ER=65 THEN T=TR: S=BL: GOTO 70 
100 PRINT#15,"B-W:";5,0,T,S: REM SCHREIBE RECORD 
110 PRINT#4,T;",";S 
120 CLOSE 5 
130 CLOSE 15 
140 CLOSE 4 
150 END 

Was macht nun dieses Programm ? Zunächst werden die 3 notwendigen 
Dateien geö-f-fnet, dann ein Text de-finiert, der direkt 
abgespeichert werden soll. Dieser Text wird in der Daten-Datei 
zunächst zwischengespeichert. Nun geht das Betriebssystem au-f die 
Suche nach einem -freien Block au-f der Diskette. Die Suche beginnt 
bei Track 1, Sector 1, also dem Start der Diskette. Dazu wird die 
Zeile 70 benötigt. "B-A:" heißt BLOCK-ALLOCATE oder übersetzt 
soviel wie BLOCK-BELEGEN. Es wird also ein Block au-f der Diskette 
gesucht, der noch nicht beschrieben wurde, bzw. wieder 
-freigegeben wurde. Um zu sehen, ob der gesucht Block -frei ist, 
muß der Kommandokanal gelesen werden. Hat er jedoch einen -freien 
Block ge-funden, so schreibt er den Text, der in der Daten-Datei 
bereit gestellt wurde, mit den gefundenen Blockadressen, auf die 
Diskette. Danach werden die Adressen noch in der sequentiellen 
Datei abgespeichert, damit der Satz später wiedergefunden wird. 
Gleichzeitig sperrt das Betriebssystem diese Spur automatisch, 
damit sie nicht unbeabsichtigt überschrieben wird. Die Dateien 
werden geschlossen und das Programm ist beendet. 
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Genauso interessant ist das Wiedereinlesen der Daten: 


10 OPEN 4,8,4,"CBM 64 DATEI" 

20 OPEN 15,8,15 
30 OPEN 5,8,5,"#" 

40 INPUT#4,T,S: REM LESEN DER ADRESSEN 

50 PRINT#15,"B-R:";5,0,T,S 

60 INPUT#5,TE:f,RE 

70 PRINT#15,"B-F:";0,T,S 

80 CLOSE 5 

90 CLOSE 4 

100 PRINT#15,"S:CBM 64 DATEI" 

110 CLOSE 15 

Und auch zu diesem Programm eine kurze Erläuterung: Nachdem die 

Dateien geö-f-fnet wurden, wird die Adresse des Blocks eingelesen, 
in dem die eigentlichen Daten, in unserem Fall der Text, 
gespeichert sind. Nachdem dies geschehen ist, wird der Block 
durch den BLOCK-FREE Be-fehl wieder -frei gegeben. Dies dar-f 
natürlich nur dann geschehen, wenn der Block gelöscht werden 
kann. Danach werden die sequentielle- und die Daten-Datei wieder 
geschlossen, die sequentielle Datei wieder gelöscht und auch der 
Kommandokanal wieder geschlossen. 

2. Der direkte Diskettenzugri-f-f 

Dieser Zugri-f-f ermöglicht, wie sein Name schon sagt, den direkten 
Zugri-f-f auf beliebige Tracks und Sectoren, also das Lesen von 
Informationen direkt von Disk, ohne erst Dateien zu eröffnen. So 
können Sie zum Beispiel leicht das Inhaltsverzeichnis lesen, ohne 
den LOAD "^",8 Befehl anwenden zu müssen und damit ein Programm, 
das im Speicher steht vielleicht zu zerstören. Oder Sie können 
ein Programm auf Diskette ändern, ohne es laden zu müssen — 
selbst zerstörte Programme können unter Umständen wieder 
repariert werden. 
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Diese Zugri-f-fe sind aber so ge-fährlich, daß wir jeden 
Programmierer davor warnen möchten, sie ohne genaues Missen über 
den Au-fbau der Diskette, der Direktory, BAM oder des Programms 
selber anzuwenden. Es können so schnell ganze Dateien und 
Disketteninhalte verloren gehen. Lesen Sie dazu also auch 
genaustens das Handbuch zur Commodore Floppy 1541 durch. Sie 
werden verstehen, daß wir an dieser Stelle nicht auch noch 
aus-führlich au-f den ganzen Aufbau von Direktory, BAM etc. 
eingehen können. Das würde den Umfang dieses Buches sprengen. 
Wenn Sie aber gerne mit diesen Möglichkeiten e'xperi menti eren 
möchten, so empfehlen wir mit einer Testdiskette zu arbeiten — 
dann können zumindest keine "lebenswichtigen" Daten verloren 
gehen. 


Zur Verdeutlichung der angewendeten Befehle hier noch eine Liste 
der Befehle, die direkt auf einen Block zugreifen können: 


Bezeichnung: 


Anwendung: 


BLOCK-LESEN 
BLOCK-SCHREIBEN 
BLOCK-BELEGEN 
BLOCK-FREIGEBEN 
PUFFER-ZEIGER 


"B-R:";KANALNUMMER,LAUFWERK,TRACK,BLOCK 
"B-W: " ; KANALNUMMER,LAUFWERK,TRACK,BLOCK 
"B-A:";LAUFWERK,TRACK,BLOCK 
"B-F:";LAUFWERK,TRACK,BLOCK 
"B-P:";KANALNUMMER,POSITION 


Dieses sind die wichtigsten 
ist gemeinsam, daß Sie 
zugreifen. So haben Sie 
gewöhnlichen Zugriffsart nie 


Befehle zum direkten Zugriff. Allen 
direkt auf den Floppy-Control1 er 
Möglichkeiten, die Sie bei einer 
haben werden. 


210 






7.3 Programmover1ay ohne Variablenverlust 


Bevor wir uns der Technik des Programmover1ays zuwenden, wollen 
wir erst einmal klären, was ein üverlay ist und welche Funktion 
es h at - 

Bei größeren Programmen kommt man regelmäßig in die Verlegenheit, 
daß der Speicherplatz nicht ausreicht- Besonders bei intensiver 
Variablenbenutzung steigt das Programm sehr schnell mit einem 
'OUT ÜF MEMORY ERROR' aus- Was soll man dagegen tun ? Der einzig 
gangbare Weg ist die Au-fsp 1 ittung des Programms in mehrere Teile- 
Dies ist natürlich nur möglich, wenn das Programm aus mehreren 
voneinander unabhängigen Programmteilen besteht- Kommerzielle 
Programme, wie z-B- Datei verwal tungen, arbeiten -fast 
ausschließlich au-f diese Art und Weise. 

Die einzelnen Teile müssen dann bei Bedar-f nachgeladen werden. 
Dies bedeutet natürlich einen gewissen Zeitverlust, der jedoch 
nicht besonders gegenüber der enormen Speicherplatzersparnis ins 
Gewicht -fällt. Natürlich ist eine solche Technik vernün-ftig nur 
mit einem Fl oppyl au-f wer k realisierbar. 

Damit haben wir auch schon geklärt, was ein Programmover1ay ist 
und wozu es dient. Fassen wir noch einmal zusammen: Bei einem 
Programmoverlay ist das eigentliche Programm in mehrere 
voneinander unabhängige Programme au-f gespalten, die bei Bedarf 
von der Diskette nachgeladen werden. 

Zum Glück besitzt der VC-20 alles in seinem BASIC, was zu einem 
Programmoverlay notwendig ist. Allerdings sind dabei ein paar 
Dinge zu beachten, wenn Variablen in den nachgeladenen 
Programmteil übergeben werden sollen. Gehen wir erst einmal von 
dem einfachen Fall aus, daß keine Variablen übergeben werden 
sol1en- 

In diesem Fall ist die Sache ganz einfach. Mit dem normalen LOAD— 
Befehl wird der zweite Programmteil nachgeladen: 

1000 LÜAD"TEIL2",a 
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Dies könnte eine Zeile aus dem ersten Programm sein. Gelangt das 
Programm in diese Zeile, wird "TEIL2" von der Diskette geladen 
und automatisch gestartet. Wäre nicht der kleine Zeitverlust, der 
Benutzer würde dies gar nicht bemerken. 

Etwas schwieriger wird die Angelegenheit, wenn wir Variablen in 
den zweiten Teil übernehmen wollen. Grundsätzlich gilt, daß in 
diesem Fall das Programm auf keine Fälle länger sein darf als das 
im Speicher befindliche. Ist dies gewährleistet, so gehen keine 
Variablen verloren, da die Pointer auf das Ende des Programms 
nicht verändert werden. Diese Pointer sind gleichzeitig auch die 
Zeiger auf den Start der Variablen. Sollen mehrere Programmteile 
geladen werden, so muß von dem ersten Programm dieser Pointer 
entsprechend hochgesetzt werden. Beispiel : Das erste Programm 
hat auf der Diskette eine Länge von 10 Blöcken, das längste 
Programm hat eine Länge von 17 Blöcken. Zu Beginn des Programms 
muß nun die folgende Zeile stehen : 

1 P0KE46,PEEK(46)+8:CLR 

Damit wird der Zeiger auf das Ende des Programms hochgesetzt. Die 
Zahl 8 gibt dabei die Differenz zwischen der Anzahl der Blöcke 
der beiden Programme +1 an. 

Nun können Sie die einzelnen Programmteile laden, ohne 
Variablenverluste befürchten zu müssen. Achten Sie aber darauf, 
daß Zeile 1 nur einmal durchlaufen wird. 

Ein kleines Problem ergibt sich nun aber noch bei 
Stringvariablen. Die Speicherung von Stringvariablen erfolgt 
normalerweise von der oberen Speichergrenze abwärts. Zu jeder 
Variablen existiert noch zusätzlich ein Pointer, der Länge der 
Variablen und Speicherstelle beinhaltet, an der der eigentliche 
Inhalt steht. Dieser Pointer befindet sich immer im normalen 
Variablenbereich. Wo aber nun der eigentliche Inhalt steht, hängt 
davon ab, wie Sie die Variable benutzt haben. Haben Sie die 
Variable durch eine Operation bzw. Zuweisung erhalten, so steht 
sie in dem normalen Stringspeicher und es ergeben sich keine 
Probleme für das üverlay. Eine solche Operation wäre zum 
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Beispiel: 

10 = A4: + RIGHT4:(B4:,2) 

Ungünstiger sieht es aus, wenn Sie den Inhalt der Variablen 
direkt zuweisen oder aus DATA-Statements herausholen, zum 
Beispiel so: 

10 A4:="TEST" 

oder 

10 F0RI = 1T02:READA4:(I) :NEXTI 
20 DATA "TESTl","TEST2" 

In diesem Fall werden die Inhalte der Variablen nicht noch einmal 
extra in dem normalen Stringspeicher gespeichert, sondern die 
Pointer zeigen direkt in den BASIC—Text- Dies ist aus 
ökonomischen Gründen sicher sinnvoll, hat jedoch für unser 
□verlay die Folge, daß wir den Inhalt der Variablen verlieren- 
Zwar werden beim Overlay die Pointer nicht verändert, allerdings 
ist das BASIC-PRGGRAMM, in dem die Strings stehen, nach dem Laden 
des nächsten Programmes nicht mehr vorhanden- 

Aus diesem Grunde müssen wir das Betriebssystem zwingen, die 
Variablen doch in dem normalen Stringspeicher abzulegen. Dies 
geschieht mit einem ganz einfachen Trick, wir addieren einen 
Leerstring: 

10 A^="TEST”+"" 

oder 

10 FGRI=1TÜ2:READA^:A^=A^+"":NEXTI 
20 DATA "TESTl","TEST2" 

Nun zeigen die Pointer für die Strings nicht mehr in das BASIC— 
Programm- Ihrem Overlay steht jetzt nichts mehr im Wege! 
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7.4 Textverarbeitung auf dem VC—20 


Seit es Computer gibt, gibt es immer das Verlangen, Arbeiten, die 
bisher mühsam von Hand erledigt wurden, nun mit Hilfe dieser 
elektronischen Wunderwerke zu bewältigen. Eines der aufwendigsten 
Probleme ist die Erstellung von Texten, Berichten, und alles das, 
was bisher auf einer Schreibmaschine unter großem Zeit— und 
Arbeitsaufwand geschrieben wurde. Auch der VC—20 gehört zu den 
Computern, die es erlauben, Texte am Bildschirm zu erstellen, zu 
ändern, abzuspeichern und auf einem Drucker auszugeben. Solche 
Programme gibt es zu hunderten - sie werden heute schon in sehr 
vielen Fachzeitschriften ausgedruckt. Aber was hinter der Idee 
der Textverarbeitung steht, das erklärt einem niemand genau. Wir 
wollen das an dieser Stelle ändern. 

In diesem Kapitel erhalten Sie einen Einblick hinter die Kulissen 
der Textverarbeitung. Es wird zwar kein komplettes Textprogramm 
vorgestellt, dafür erhalten Sie aber Informationen, mit denen es 
Ihnen nicht mehr ganz so schwer fallen dürfte, mit etwas Übung 
und Geduld ein eigenes, auf Ihre Belange zugeschnittenes 
Textprogramm zu erstellen. Denn dies ist oftmals das eigentliche 
Problem: Jeder möchte seine Texte in einem ganz speziellen Format 
erstellen. Der eine Anwender benötigt unbedingt eine 
Rechenfunktion während der andere noch eine Dateiverwaltung dazu 
wünscht und vieles mehr. Ein Programm solchen Ausmaßes würde den 
Umfang eines solchen Buches sprengen (und hätte schon nichts mehr 
mit TIPS und TRICKS zu tun). Aus diesem Grund wollen wir an 
dieser Stelle nur die wichtigsten Funktionen eines Textprogrammes 
vorstellen. 

Als erstes wollen wir uns hier mit der Eingabe von verschiedenen 
Zeichen befassen. Dabei müssen wir uns zunächst für eine der 
beiden Möglichkeiten entscheiden, die das VC—20 BASIC bietet: 
INPUT oder GET. Falls wir den INPUT-Befehl verwenden wollen, was 
sicherlich die einfachste Möglichkeit ist, müssen wir uns über 
ein paar Probleme im klaren sein. Das größte Problem ist, daß wir 
die Tastatur und damit die Eingaben nicht richtig kontrollieren 
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die wir über die Tastatur 


können. Das heißt, daß alle Zeichen, 
aus eingeben, tatsächlich akzeptiert werden. Nun kann es aber 
passieren, daß ein Text länger als die erlaubten 88 Zeichen wird 
(per Zeile versteht sich) und der VC-20 bei der Betätigung der 
RETURN—Taste einen Fehler meldet. Oder aber wir haben noch gar 
kein Zeichen eingegeben und betätigen aus irgend einem Grund die 
DEL-Taste. Auch dies kann zu einem Fehler führen. - Wir sehen 
also, daß diese Form der Eingabe für eine komfortable Te«teingabe 
nicht in Frage kommen kann. 

Bei der Textverarbeitung kommt es darauf an, jede Eingabe über 
Tastatur kontrollieren zu können (Ist die Zeile nicht zu lang? 
Darf diese Taste überhaupt gedrückt werden? usw.). Aus diesem 
Grund verwenden wir den GET-Befehl. Ein Programm zur Eingabe 
eines Textes von maximal 99 Zeilen könnte so aussehen: 

100 PRINT CHR^(147); 

110 DIM TE^(IOO) 

120 INPUT "ZEILENNUMMER: ";ZE 
130 PRINT 

140 IF ZE<1 ÜR ZE>99 THEN 120 
160 PRINT ZE;": "; 

170 AZ=0 
180 GET BS^ 

190 IF BS^="" THEN 180 
200 IF BS^<:>CHR^(20) THEN 210 
202 IF LEN(TE$(ZE) XI THEN 180 
204 PRINT CHR^(157);" ";CHR^(157); 

206 TE^(ZE)=LEFT^(TE^(ZE),LEN(TE^(ZE)>-l) 

208 GOTO 180 

210 IF BS^=CHR^(17) THEN 280 
230 IF AZ=0 THEN TE^(ZE)="": AZ=1 
240 PRINT BS^; 

250 IF BS:$=CHR^(13) THEN ZE=ZE+1: GOTO 272 
260 TE^(ZE)=TE^(ZE)+BS^ 

270 IF LEN(TE^(ZE))=80 THEN ZE=ZE+1 
272 IF ZE=100 THEN 280 
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275 GOTO 180 
280 TE^(ZE)="!! 


ACHTUNG: Wenn Sie dieses Programm laufen lassen, sehen Sie keinen 
Cursor mehr. Dies ist eine Besonderheit des GET-Befehls und läßt 
sich durch eine kleine Änderung im Programm teilweise beheben. 
Sie müssen nur an Stelle des Cursors ein anderes Zeichen 
voranschicken. (z.B. CHR$:(185)). Das Programm muß dann aber etwas 
geändert werden: 

185 PRINT CHR^(185) ;CHR$:(157) ; 

203 PRINT " ";CHR^(157); 

240 PRINT ";CHR^ (157) ;BS^; 

280 PRINT ";CHR^(157) 

290 TE$(ZE)="!!" 

Mit diesem Programm können Sie nun, beginnend bei einer 
bestimmten Zeilennummer, Ihren Text eingeben. BS^m steht für 
"Buchstabe" und enthält das Zeichen, das wir über die Tastatur 
aus eingegeben haben. Zunächst wird abgefragt, ob wir die DEL— 
Taste gedrückt haben. Wenn noch kein anderes Zeichen vorher 
eingegeben wurde, geschieht nichts - man kehrt wieder zur Eingabe 
zurück. Ansonsten wird das Zeichen leer überschrieben und 
innerhalb des Satzes gelöscht. 

Wenn Sie keinen Text mehr eingeben wollen, drücken Sie einfach 
die Pfei 1-abwärts-Taste. Das Programm bricht dann an dieser 
Stelle ab. 

Nun wollen wir aber noch den gerade eingegebenen Text auf dem 
Drucker wieder ausgeben. Hierbei wollen wir nun noch 
unterscheiden, ob die Zeilennummern mit angegeben werden sollen 
oder nicht. 

300 PRINT CHR^(147); 

310 INPUT "MIT ZEILENNUMMERN ";JN^ 

320 IF JN^="J" THEN ZD=1: GOTO 350 
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330 IF JN:$:="N" THEN ZD=0: GOTO 350 

340 GOTO 310 

350 OPEN 4,4 

3i0 FÜR ZE=1 TO 100 

370 IF TET(ZE)="!!“ THEN 385 

380 IF ZD=1 THEN PRINT#4,ZD;": "; 

382 PRINT#4,TE$(ZE) 

384 NEXT 

385 PRINT#4 
390 CLÜSE 4 

Dieses sehr einfache Druckprogramm gibt den Text auf dem Drucker 
aus, der mit dem Eingabeprogramm in den Variablen TE$(1) bis 
TE5^(n) (n = Anzahl der Zeilen) eingegeben wurde. Damit nicht alle 
100 Zeilen gedruckt werden, falls weniger eingegeben wurden, 
druckt das Programm nur solange, bis es auf den Text "!!" in 
einer Zeile stößt. Das bedeutet, daß hier der Text zu Ende ist. 
Dieses Zeichen wurde ja vom Eingabeprogramm selber an den Schluß 
des Textes angefügt. Um nach der Eingabe eines Textes diesen auch 
gleich drucken zu können, geben Sie nun noch folgende Zeilen ein: 

292 INPUT "TEXT DRUCKEN (J/N) ";JNT 

295 IF JN:T="N" THEN END 

Sie wollen aber sicherlich nicht jedesmal einen Text neu eingeben 
um ihn dann auszudrucken - das wäre ja überhaupt keine 
Erleichterung gegenüber der Eingabe auf Schreibmaschine. In 
diesem Fall wollen wir den Text auf eine Kassette speichern. Hier 
können wir nun sogar das sequentielle Abspeichern wählen 
(relative Abspeicherung wäre sowieso nur auf einer Floppy 
möglich), da ein Text immer sequentiell abgearbeitet werden muß. 
Hier nun die kleine Speicherroutine: 

400 OPEN 1,1,1,"TEXTDATEI" 

410 FÜR ZE=1 TO 100 

420 IF TE^(ZE)="I!“ THEN 460 

430 PRINT#1,TE^(ZE) 
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440 NEXT ZE 
460 CLOSE 1 
470 END 

Damit auch diese Routine vom Programm aus aufgeru-fen werden kann, 
müssen wir noch ein paar Zeilen einfügen und ändern: 

295 IF JN^=“N" THEN 396 

396 INPUT "TEXT SPEICHERN (J/N) ";JN^ 

397 IF THEN END 

Nach dem selben Prinzip arbeitet auch die Routine zum Einlesen 
eines Textes von Kassette. Die Datei muß hierbei nur zum Lesen 
geöffnet werden (s. Kapitel 5.9) und die einzelnen Zeilen müssen 
mit dem INPUT#—Befehl gelesen werden. 

Diese wenigen Routinen lassen schon deutlich das Gerüst einer 
Textverarbeitung erkennen. Die Routinen EINGABE, AUSGABE, 
SPEICHERN und LESEN sind Hauptbestandteil jeden Textprogrammes. 
Diese Routinen werden dann noch durch verschiedene Besonderheiten 
erweitert. Es gibt zum Beispiel bei fast jedem Textprogramm die 
Möglichkeit nach verschiedenen Wörtern oder Zeichen innerhalb des 
Textes zu suchen. Eine Routine, die diese Aufgabe erfüllt finden 
Sie in diesem Buch. Außerdem bietet ja auch das BASIC des 9C-20 
schon ein paar sehr leistungsfähige Befehle zur Textein- und 
Ausgabe. So lassen sich zum Beispiel durch Befehle wie LEFT^, 
RIGHTS und MID^ ganze Zeilen in verscheidene Teile zerlegen. 

Es ist also auch mit einfachen Mitteln schon möglich eine kleine 
Textverarbeitung zu schreiben. Noch ein Tip am Rande. Gerade bei 
solchen Programmen ist es sehr sinnvoll die verschiedenen 
Routinen in Maschinensprache zu schreiben (s. die Routine zum 
Suchen eines Textteils innerhalb eines Textes)- 
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Spiele auf dem VC-20 


7-5 Suchspiel — Goldgräber 

Da Sie mit dem VC—20 einen Computer besitzen, der hevorragende 
Grafik- und Soundmöglichkeiten besitzt, können Sie natürlich auch 
sehr gut Spiele realisieren. In diesem Kapitel Mollen wir uns aus 
der großen Palette der Spiele zwei Gruppen herausgreifen, die 
beide besonders von Grafik und Sound unterstützt werden können. 
Diese beiden Gruppen sind Such- und Geschicklichkeitsspiele. Zu 
beiden Kategorien werden Sie Je ein komplettes Programm bekommen, 
ausführlich dokumentiert, damit Sie es verstehen können und nach 
Ihren eigenen Uünschen verändern können. Uenden wir uns zuerst 
dem Suchspiel zu: 

In unserem Suchspiel müssen Sie in einem Bergwerk Gold suchen. 
Dazu wählen Sie zuerst die Etage, von der Sie starten (A-S) und 
dann können Sie sich mit Hilfe der Tasten I,J,K und M durch das 
Bergwerk bewegen. Doch Sie können nicht nur auf Gold stoßen, 
sondern auch einen Wassereinbruch verursachen, auf Granit stoßen 
oder in Fallgruben stürzen. Jeder Schritt im Bergwerk kostet Sie 
10 Dollar, ein Wassereinbruch 2/3, eine Fallgrube die Hälfte 
Ihres Kapitals und Granit mit der notwendigen Sprengung 250 
Dollar. Stoßen Sie auf eines der fünf Goldstücke, so wird Ihr 
Kapital je nach Größe des Goldstückes erhöht und dient Ihnen zur 
Finanzierung der weiteren Suche. Das Spiel ist zu Ende, wenn Sie 
entweder alle 5 Goldstücke gefunden haben oder Ihr Kapital 
aufgebraucht ist. 

Anhand dieser umfangreichen Beschreibung merken Sie sicher schon, 
daß dies alles nicht ganz leicht zu programmieren ist. Doch keine 
Angst, wir gehen das Programm jetzt systematisch durch- Sie 
finden auf den nächsten Seiten das Listing, dann die 
Erläuterungen dazu. 
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1 PÜKE650,128 

2 IFPEEKC 36869)=240THENVI=7680:FR = 38400 

3 IFPEEKC 3S369) = 192THENV1=4096:FR=37888 
10 PRINT"J 

45 PRINT’’aiHHBKRNN'S LüSGEHEN< J/'N)? “ 

170 GETR$:IFR$=""THEN189 
133 IFi=l$< > " J’’THEN 170 
190 P0=PÜ-B-22 
200 SC=10000:PRR=250 
1030 PÜKE 36879,12 

1036 PÜKE 36878,15 

1037 ERZ=1 

1038 HÜE=0 
1040 PRINT"J 
1100 FÜR X=20TO21 

1110 PüKEFR+484-22*R+X,l 

1111 PÜKE 36875,128+X 
1115 PÜKEVI+484-22*R+X,160 

1120 NEXTX 

1121 PÜKE 36875,0 

1130 A=R+l:IF A<19 THEN 1100 

1200 FÜR X=0TÜ3 

1205 PÜKE 36875,128+3*X 

1210 PÜKEVI+66-22*X+S,160:PÜKEFR+66-22*X+8,1 

1220 TnIEXTX 

1221 PÜKE 36875,0 

1230 S=S+1:IFS<22THEN1200 

1700 FÜRETR6E=1TÜ19 

1710 PüKEVI+85+22*ETR6E,ETAGE 

1715 PGKEFA+85+2E*ETAGE,1 

1720 NEXTETAGE 

2022 GEGE=102 

2030 A=0 

2035 FGRVER=0TG16 
2040 GOSUB 10000 

2050 IFPEEKkVI+484-22*Yl+X1)<>32THEN 2040 
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2060 P0KEFA+484-22*Yl+X1,0 
2065 POKEVI+484-22*Yl+X1,GEGE 
2070 rl = P+l 

2075 IFA>=0THEh4GEGE=102: IFA >3THENGEGE=7 : IFA >8THENGEGE = 78 : IFA > 1 2THENGEGE= 1 05 

2080 NEXTVER 

2090 GOTO 20000 

10000 Y1 = INT( R^O': 1 )*19)+0 

10010 X1 = INT< RfvlDC 1 )*19)+0 

10020 RETURN 

20000 POKEVI+81,160 

20050 POKEFA+81,0 

20225 FOR VER=0TO7 

20235 FOR VER=0TO7 

20500 GETA$:IFA$=""THEN20500 

20505 buch=asc<:a$) 

20506 IF BUCH<65 THEN 20500 

20507 IF BUCH>83 THEN 20500 
20510 FOR L=0TO6 

25000 IFL>1THENP0KEVI+8 1+L- 1 ,160:POKEFA + 81+L- 1,1 
25010 POKEVI+8 1+L, 160:POKEFA+81+L,3 
25020 NEXTL 

30100 FOR AUFZ=0TOBUCH-65 

30105 POKEVI+65+22*AUFZ,160:P0KEFA+87+22*AUFZ,1 

30106 POKE 36874,128 

30107 FORTGH=0TO30:NEXT 
30110 POKEVI+87+22*AUFZ,160 
30112 POKEFA+109+22*AUFZ,3 

30120 NEXTAUFZ 

30121 POKE 36874,0 
40000 REM 

40030 POKEVI+64+22*AUFZ,160:POKEFA+86+22*AUFZ,3 
40500 POKEVI+85+22*AUFZ, 170:POKEFA+85+22*AUFZ,3 
40510 PO=VI+84+22*AUFZ 
40520 PF=FA+84+22*AUFZ 
40530 8=1:C=0 

40600 GETA$: IFAS="'•THEN40600 
40610 IFA$="J"THENB=B-1:GOTO40900 
40620 IFA$="K '•THENB=B + 1 : GOTO40900 
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40630 
40640 
40660 
40670 
40900 
409 10 
40920 
40930 
42005 
420 1 1 
420 12 
42013 
52000 
5200 1 

52002 

52003 
52006 
52009 
520 10 
520 1 1 
52013 
520 14 

52015 

52016 

52017 

52019 

52020 
52030 
53000 
530 10 
53020 
53030 
53040 
60000 
60001 
60010 
60015 
60020 
60030 
60040 


IFA*="I”THENC=C-1:GOTO40900 
IFA*="M"THENC=C+1:GOTO40900 
GOTO 40600 
REM 

IF B<-18THENB=B+1:GOTO40600 

IF B>0THENB=B-1:GGTG40600 

IF C+AUFZ<1THENC=C+1:GGTG 40600 

IF C+AUFZ>19THENC=C-1:GGTG 40600 

IFPEEKCPG+B+22*C)=105 THEN M=105:GGTG 53000 

IFPEEK<PG+B+22*C)=7 THENM=7:GGTG 53000 

IFPEEKC PG + B+22*C) = 102THENM=102:GGTG 53000 

IFPEEKCPG+B+22*C)=78 THENM=78:GGTG 53000 

PGKE PG + B + < 22*0,170 

PGKE PF+B+22*C,1 

FGR U=128TG240STEP3 

PGKE 36877,U:NEXTU 

PGKE 36877,0 

PGKE PG+B+22*C,160 

PGKE PF + B + C 22*0,1 

PRA=PRA+INTC RNDC 1)*20) +-5:SC=SC-10 
FGH = INTC SO 

IFFGHC10000 THEN PGKEVI+16,160:PGKE FA+16,1 
IFFGHC 1000 THEN PGKEV I + 15,160:PGKEFA + 15,1 
IFFGHC100 THEN PGKEVI+14,160:PGKEFA+14,1 
IFFGHC10 THENSC=0:GGTG63000 
PR INT”a*ANKKGNTG ="INTCSO 
IFGGH=5 THEN 63000 
GGTG 40600 

PGKE PG+B+22*C,M:PGKEPF+B+22*C,1 

IF M=7THEN 60000 

IF M=102 THEN6i000 

IF M=105 THEN 62500 

IF M=78 THEN 61500 

REM 

GGH=GGH+1 

FGR JK=0TG200 

UNZ = INTC RNOC 1 ) *6 ) +3 

PGKE 36875,INTC RNDC 1)* 128) + 128:NEXTJK 
PGKE 36875,0 

PGKE PG+B+22*C,1G0:PGKE PF+B+22*C,1 
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60050 SC=SC+UNZ*PRA 


60060 GOTO 52000 
60900 REM 

61000 FOR UA=0TO19-AUFZ-C 

61010 FOR UIE=0TO18 

61011 PED=PEEKC FA+484+UIE-22*UA)AND15 
61014 IF PED=1THEN61020 

61016 GOTO 61030 
61020 P0KEFA+484+UIE-22*UIA,6 
61030 POKE 36877,128 + 4*UiR 
61040 NEXT UE 
6 1060 NEXT UiR 

61061 POKE P0+B+22*C,160:POKEPF+B+22*C,6 
61070 POKE 36877,0 
61080 SC=SC/3:GOTO52000 
61500 REM 

61520 FOR DF=200 TO140 STEP-1 
61525 FORTHN=0TO15:NEXT 
61530 POKE 36876,DF:NEXTDF 
61540 SC=SC/2 

61545 IF C+AUFZ<19 THEN POKE P0+B+22*C,160:P0KEPF+B+22*C,1 

61546 IF C+AUFZ=19 THEN POKE PO+B+22*C,160:POKEPF+B+22*C,1:POKE 36876,0:GOTO 520 
00 

61549 POKE 36876,0 

61550 C=C+1:G0T0 52000 
62000 GOTO 52000 
62500 REM 

62505 KH=1 

62510 FOR HN=128TO240STEPKH 

62520 POKE 36877,HN:NEXTHN 

62521 KH=KH+1 

62525 IF KH<9THEN62510 

62530 POKE P0+B+22*C,160:POKEPF+B+22*C,1 

62540 SC=SC-250 

62550 GOTO 52000 

63000 PR INT"J 

63010 POKE 36879,25 

63020 PR INT"■gmunspi elende " 

63030 PRINT"fflCIE HABEN AUF IHREM KONTO < "INT<SC)">DOLLAR. " 
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Damit das Programm au-f allen Ausbaustufen Ihres VC—20 läuft, wird 
in den Zeilen 2 und 3 bestimmt, wo Video- und FarbRAM liegen. Bis 
Zeile 2090 wird das Spiel initialisiert. Dabei wird zuerst bis 
Zeile 2022 der Bildschirm initialsiert und bis Zeile 2090 werden 
Gold, Granit, Wassereinbrüche und Fallgruben versteckt. In Zeile 
20500 wird dann die Startetage abgefragt und von Zeile 20510 bis 
30120 gesetzt. In Zeile 40600 wird die Bewegung abgefragt. In den 
Zeilen 40610 bis 40660 wird auf eine gültige Abfrage geprüft. In 
den Zeilen 40900 bis 40930 wird überprüft, ob Sie das Bergwerk 
auch nicht verlassen. Der Test auf einen Fund findet in den 
Zeilen 42005 bis 42013 statt. Hat kein Fund stattgefunden, wird 
die neue Position in den Zeilen 52000 bis 52010 gesetzt. 
Anschließend wird Ihr Kapital vermindert und ausgedruckt. Wenn 
Sie noch nicht alle fünf Goldstücke gefunden haben (Zeile 
52020),wird in Zeile 52030 wieder zurückverzweigt und ein neuer 
Abfragezyklus beginnt. In den Zeilen ab 53000 werden die vier 
möglichen Funde behandelt. Zuerst wird in den Zeilen 60000 bis 
60060 der Goldfund ausgeführt. Dabei werden die Geräusche 
ausgeben und der Kapitalbetrag erhöht. In den Zeilen 60900 bis 
61080 wird der Wassereinbruch behandelt. Die Zeilen 61500 bis 
62000 bearbeiten die Auswirkungen eines Sturzes in eine 
Fallgrube, die Zeilen 62500 bis 62550 bearbeiten die Ausführung 
einer Sprengung. In den letzten Zeilen ab 63000 schließlich wird 
die Meldung über das Spielende ausgegben und der gewonnene Betrag 
ausgegeben. 
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7.6 Geschicklichkeitsspiel 


STARSHGGTER 


In dem Spiel dieses Kapitels wird kaum Strategie verlangt. 
Wichtig ist hier Ihre Geschicklichkeit im Umgang mit der 
Tastatur- Worum geht es nun? Auf dem Bildschirm erscheinen 20 
zufällig verteilte Sterne. Ihre Aufgabe ist es nun, mit Hilfe 
eines Raumschiffes die Sterne abzuschießen. Das Problem ist aber, 
daß Sie Ihr Schiff nicht stoppen können und daß immer wieder neue 
Sterne entstehen. Das Spiel ist zuende, wenn der Bildschirm 
sauber ist, d.h. alle Sterne sind verschwunden oder Sie mit einem 
der Sterne kollidieren sollten. Wie sieht nun der Aufbau eines 
solchen Spieles grundsätzlich aus? 

Wir unterscheiden wieder zwischen zwei Hauptteilen, der 
Initialisierung und dem eigentlichen Spielteil. Bei der 
Initialisierung haben wir vier Aufgaben: 

1) Verlegen des Charactergenerators und Erzeugen der Spielfigur 
(Raumschiff) 

2) Initialisieren des Bildschirms (Setzen der Sterne und der 
Farben) 

3) Erzeugen der zufälligen Startposition 

4) Erzeugen der zufälligen Bewegungsrichtung 

Schauen Sie sich das Listing auf der übernächsten Seite an. In 
Zeile 1 setzen wir den für BASIC verfügbaren Speicherplatz 
herunter und kopieren einen Teil des Charactergenerators in den 
geschützten Bereich. In Zeile 20 wird das Raumschiff erzeugt. Da 
wir vier verschiedene Bewegungsrichtungen haben und unser 
Raumschiff nicht rückwärts fliegen soll, schaffen wir vier 
Raumschiffe, die sich nur durch die Lage auf dem Bildschirm 
unterscheiden. Dabei gilt folgendes für die Bewegung: 
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1 : Das Raumschiff fliegt nach rechts 

2 : Das Raumschiff fliegt nach unten 

3 : Das Raumschiff fliegt nach links 

4 ; Das Raumschiff fliegt nach oben 

In Zeile 40 beginnt die Initialisierung des Bildschirms. Der 
Bildschirm wird gelöscht und das FarbRAM initialisiert. Ab Zeile 
60 werden die Sterne erzeugt. Die Abfrage in Zeile 90 bewirkt, 
daß genau 20 Sterne erzeugt werden. In Zeile 100 werden die 
zufällige Startposition und in Zeile 110 die Bewegungsrichtung 
festgelegt. Dann wird das Raumschiff auf den Bildschirm gebracht. 
Beachten Sie, daß die Variable R die Richtung anzeigt und 
gleichzeitig das richtigliegende Raumschiff auswählt. 

Menden wir uns nun dem eigentlichen Spielteil zu. Was haben wir 
zu tun? 

1) Kollision abfragen 

2) Bewegung ausführen 

3) Tastatur abfragen 

4) Schuß abfragen 

5) Spielende prüfen 

6) neue Hindernisse erzeugen 

Diese grobe Gliederung finden Sie in den Zeilen 200 bis 260 
wieder. Schauen wir uns die dazu notwendigen Unterprogramme an: 

zu 1) Zuerst wird die alte Position des Raumschiffes gelöscht 
und dann die neue Position errechnet(1110-1130). Dann wird in 
Zeile 1710 geprüft, ob an dieser Position ein Stern sitzt. Ist 
dies nicht der Fall, wird das Programm mit Punkt 2 fortgesetzt. 
Ist an der errechneten Stelle ein Stern vorhanden, so wird zu 
Zeile 2100 verzweigt. Dort wird eine Abschlußmeldung ausgegeben 
und das Programm beendet. 

zu 2) Die Bewegung selber ist so schnell erledigt, daß wir 
dafür kein extra Unterprogramm benötigen. Die alte Position haben 
wir bereits unter Programmpunkt 1 gelöscht und ebenfalls dort die 
neue Position errechnet. Nun brauchen wir nur noch das Raumschiff 




Mieder auf den Bildschirm zu bringen (Zeile 210). Dazu geben wir 
noch ein Geräusch aus. 

zu 3) Auch die Tastaturabfrage ist schnell abgehandelt. In den 
Zeilen 1200 bis 1250 werden die 5 erlaubten Tasten abgefragt und 
entsprechend die Variablen gesetzt. 

zu 4) In Zeile 1310 wird überprüft, ob überhaupt ein Schuß 
abgefeuert wurde. Da nur in Flugrichtung geschossen werden kann, 
wird nun entsprechend R zu einem von vier identisch aufgebauten 
Programmteilen verzweigt- Wir behandeln hier deshalb exemplarisch 
nur die Zeilen 1300 bis 1390. In Zeile 1325 wird die Position des 
Rausmschiffes in eine andere Variable gerettet. Wir verwenden 
hier wieder die Variablen X und P, um das Unterprogramm in Zeile 
1010 verwenden zu können. Wir bauen nun in Zeile 1330 eine 
Schleife auf- Der Schuß soll von der Position des Raumschiffes 
beginnend bis zum Rand des Bildschirms gehen. Im Unterprogramm ab 
Zeile 1010 berechnen wir die Position des Schusses und prüfen 
anschließend, ob auf dieser Position kein Stern vorhanden ist. 
Ist dies der Fall, so wird in Zeile 1390 zuerst ein Schußgeräusch 
ausgeben (GGSUB1900) und dann die Schleife weitergeführt- Ist der 
Schuß am Rand angelangt, so werden alle Variablen wieder zurück- 
gesetzt und das Unterprogramm beendet. Ist ein Stern vorhanden, 
so wird in Zeile 1340 dieser Stern gelöscht, anschließend ,ein 
Treffergeräusch ausgeben, die Variablen wieder zurückgesetzt und 
das Unterprogramm beendet. Diese Technik bewirkt, daß mit einem 
Schuß immer nur ein Stern gelöscht werden kann. Wichtig ist hier 
auch noch der Zähler der vorhandenen Sterne (H). Ist H=0, dann 
hat man alle Sterne abgeschossen und das Spiel ist beendet. 

zu 5) Wie bereits erwähnt, existieren zwei Möglichkeiten, das 
Spiel zu beenden. Entweder kollidiert das Raumschiff mit einem 
Stern (das Spiel ist verloren) oder man schießt alle Sterne ab- 
Den ersten Fall haben wir bereits unter dem Punkt abgehandelt, 
bliebe also noch der zweite Fall. Die Anzahl der noch vorhandenen 
Sterne steht in der Variablen H, so daß wir diese nur auf den 
Wert Null zu überprüfen brauchen (Zeile 240). Ist H=0, so wird in 
Zeile 2200 verzweigt, wo eine entsprechende Meldung mit der 
dazugehörigen Geräuschkulisse ausgegeben wird. 

zu 6 ) Die Position der neuen Sterne wird in der Zeile 250 
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berechnet. Wie Sie sehen, sind Werte zwischen 0 und 100 -für die X 
und Y—Richtung möglich. Dies hat zur Folge, das nicht jeder 
Versuch, einen Stern zu erzeugen, Erfolg hat. Die Schwierigkeit 
des Spieles läßt sich also sehr gut an dieser Stelle steuern. 
Erhöhen Sie den Wert in der Berechnung, so werden weniger Sterne 
erzeugt, vermindern Sie den Wert, erscheinen immer öfter neue 
Sterne auf dem Bildschirm. In Zeile 260 wird schließlich über¬ 
prüft, ob die Position im erlaubten Rahmen liegt und entsprechend 
ein neuer Stern auf dem Bildschirm dargestellt. 

Wir haben Ihnen nun bis ins kleinste Detail den Aufbau eines 
solchen Spieles erklärt. Wichtig ist, daß Sie sich, bevor Sie 
sich an den Rechner setzen, genau überlegen, wie Sie das Programm 
aufbauen und aus welchen Teilen es besteht. Sie haben gesehen, 
daß Sie so ein klar gegliedertes Programm erstellen können, daß 
übersichtlich ist und keine Fehler enthält- Das nachfolgende 
Programm läßt Ihnen noch viele Freiheiten für eigene 
Erweiterungen. Lassen Sie Ihre Fantasie spielen und überlegen Sie 
sich, was noch zu verbessern wäre. Sicher finden Sie noch eine 
Fülle von Möglichkeiten. Wir wünschen Ihnen jedenfalls viel Spaß 
beim Programmieren und Spielen. 
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5 REM *** STARSHOOTER *** 

10 P0KE56^28:P0KE5S,S8:CLR 

15 F0RI=7168T07678:P0KEI,PEEK(25600+1):NEXTI 
20 FORI=7176TO7207:READA:POKEI,A:NEXTI 
30 P0KE36863,255:P0KE36879,8:PÜKE36878,15 
40 PRINTCHR$< 147) 

50 FORI=38400X038805:POKEI,2:NEXT 
60 GOSUB1000:GOSUB1010 
30 IFPEEK< P)< >32THEN60 
90 POKEP,42:H=H+1:IFH<20THEN60 

100 GOSUB1000:GOSUBl010: IFPEEKk P)< >32THEN100 
110 R=INT<RND(1)*3)+l:POKEP,R 
200 GOSUB1700:REM KOLLISION? 

210 P0KEP,R:P0KE36877,220:P0KE36877,200:P0KE36877,240:REM BEWEGUNG 

220 GOSUB1200:REM ABFRAGE TASTATUR 

230 GOSUB1300:REM SCHUSSABFRAGE 

240 IFH=0THEN2200:REM ALLE HINOERNISSE WEG 

250 XZ=RNO< 1 )*100-1:YZ=RNO( 1)* 100 -1:PZ=7680+XZ+YZ*22 

260 IFXZ<22ANDYZ<23AN0PEEKC PZ)=32THENP0KEPZ,42:H=H+1 

998 GOTO200 

999 ENO 

1000 X=INT< RNO( 1 )*21 ) : Y= I NT-: RNDC 1 )*22) : RETURN 
1010 P=7680+X+Y*22 

1020 RETURN 
1100 P0KEP,32 

1110 X = X-< R = 3)*>: X>0)+< R=1 )*< X<21) 

1 120 Y = Y-< R=4)*( Y>0)+< R = 2)*( Y<22) 

1130 GOSUB1010:RETURN 
1200 GETAS 
1210 IFA$=''I''THENR = 4 
1220 IFAS="J"THENR=3 
1230 IFA$= "M''THENR = 2 
1240 IFAS= "K''THENR= 1 
1250 IFA$=" "THENS=1 
1260 RETURN 
1300 IFS=0THENRETURN 
1320 IFR>1THEN1420 
1325 XZ=X:PZ=P 

1330 F0RX=XZ + 1T02 1:GOSUBl010: IFPEEKC P)=32THEN1390 
1340 POKEP,32:GOSUB1950:X=XZ:P=PZ:S=0:H=H-1:RETURN 
1390 GOSUB1900:NEXTX:X=XZ:S=0:P=PZ:RETURN 
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1420 IFR>2THEN1520 
1425 YZ=Y:PZ=P 

1430 FÜRY=YZ + 1T022:GOSUB1010: IFPEEK< P)=32THEN1490 
1440 PÜKEP,32:GOSUB1950:Y=YZ:P=PZ:S=0:H=H-1:RETURN 
1490 GOSUB1900:NEXTY:Y=YZ:S=0:P=PZ:RETURN 
1520 IFR>3THEN1625 
1525 XZ=X:PZ=P 

1530 FORX=XZ-1TO0STEP-1:GOSUB1010: IFPEEK< P)=32THEN1590 
1540 POKEP,32:GOSUB1950:X=XZ:P=PZ:S=0:H=H-1:RETURN 
1590 GOSUB1900:NEXTX:X=XZ:9=0:P=PZ:RETURN 
1625 YZ=Y:PZ=P 

1630 FORY=YZ-1TO0STEP-1:GOSUB1010: IFPEEKC P)=32THEN1690 
1640 POKEP,32:GOSUB1950:Y=YZ:P=PZ:S=0:H=H-1:RETURN 
1690 GOSUB1900:NEXTY:Y=YZ:9=0:P=PZ:RETURN 
1700 GOSUB1100 

1710 IFPEEKCF>=42THEN2100:REM KOLLISION 
1720 RETURN 

1900 P0KE36877,230:P0KE36877,235:RETURN 

1950 P0KE36877,0:P0KE36875,240:FORI = 1 TOS:NEXTI:P0KE36875,0:RETURN 

2000 OATA 0,224,248,143,248,224,0,0 

2010 OATA 124,108,108,40,56,16,16,16 

2020 OATA 0,7,31,241,31,7,0,0 

2030 OATA 16,16,16,56,40,108,108,124 

2100 POKE36869,240:PRINTCHR$< 147):PRINT"LEIOER VERLOREN" 

2110 P0KE36878,15 

2120 FORI=254T0128STEP-1:P0KE36877,I:NEXTI 
2130 POKE36878,0:ENO 

2200 POKE36869,240:PRINTCHRSC 147):PR INT:PR INT"BRAVO! M ! ” 

2210 PRINT"SIE HABEN ES GESCHAFFT" 

2220 P0KE36878,15 

2230 F0RI=128T0254:P0KE36877,I:FORJ=1TO50:NEXTJ,I 
2240 POKE36878,0:END 

REAOY. 
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WICHTIGE 

VORANKÜNDIGUNG 


Im Herbst erscheinen in der Serie DATA BECKER Bücher drei neue, hoch¬ 
aktuelle Titel: 

• DAS GROSSE FLOPPYBUCH ZU VC-20 
UND COMMODORE 64 

ln diesem neuen Superbuch finden Sie alles, was Sie schon immer 
über Floppy-Programmierung wissen wollten, von Hinweisen für Ein¬ 
steiger über die Floppy-Programmierung für Fortgeschrittene bis hin zu 
zahlreichen fertigen Programmen und Utilities. 

Erscheint im Oktober. 

• 64 FÜR PROFIS 

KOMMERZIELLE PROGRAMMIERUNG MIT DEM 64 

Wer den Commodore 64 geschäftlich einsetzen möchte oder ent¬ 
sprechende Programme schreiben will, der braucht dieses Buch. Vom 
Maskenaufbau, Menüsteuerung und Datenspeicherung über Sor¬ 
tieren, Druckformatierung und Parameterzuweisung bis hin zur Doku¬ 
mentation zeigen wir Ihnen, wie Profis programmieren. Ein hervor¬ 
ragendes Lehrbuch zur Verbesserung Ihres Programmierstils, das dar¬ 
über hinaus 5 komplett dokumentierte Anwenderprogramme enthält! 
Auch für VC-20 Besitzer interessant. 

Erscheint im Oktober. 

• DAS GROSSE MASCHINENSPRACHE-BUCH 
FÜR VC-20 UND COMMODORE 64 

Wer schon immer Maschinensprache lernen wollte oder wer es bisher 
vergeblich versuchte, für den haben wir jetzt die Lösung. Aus¬ 
gehend von BASIC führt Sie dieses Buch schrittweise mit zahllosen 
Beispielen, Aufgaben und Beispielprogrammen in die Geheimnisse 
der Programmierung in Maschinensprache ein. 

Erscheint im November. 
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VC-INFO 

3/83 ist da! 

Über 80 (!) Seiten vollgepackt mit unserem 
riesigen Angebot rund um den Erfolgscomputer 
VC-20 und den Proficomputer Commodore 64, 
mit den neuesten Programmen aus aller Welt 
und den ersten 64er Steckmodulen, mit brand¬ 
aktuellen Buchhits, mit sensationellen neuen 
Druckern, interessantem Zubehör, CP/M für den 
64 und vielem anderen mehr. Natürlich auch 
wieder mit aktuellen Programmiertips & -tricks. 
Wer sich für VC-20 und Commodore 64 interes¬ 
siert, sollte das VC-lnfo 3/83 sofort gegen DM 3,- 
in Briefmarken anfordern. 

Ihr großer Partner für kleine Computer 

DATA BECKER 

Merowingerstr. 30 • 4000 Düsseldorf • Tel. (0211) 312085 



